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Introduction 


L'ordinateur que vous venez d'acquérir possède 32 K.octets de 
mémoire vive (RAM)- pour le SV318 - ou 89 K.octets pour le SV328. 
Lorsque vous le mettez sous tension, il n'affiche déjà plus que 
12815 octets (12,5 K) ou 29199 octets disponibles. Les K 
"disparus" sont utilisés par l’affichage et par différents 
pointeurs, et, dans le cas du 328, 32 K ne sont pas directement 
accessibles (ils seront utilisés pour charger d’autres langages qui 
remplaceront le BASIC résident). Cette taille mémoire est plus que 
suffisante pour la plupart des utilisations domestiques. De plus, 
il est possible de l’étendre par l'ajout de cartes. 


La puissance des instructions BASIC contenues dans la mémoire morte 
(32 K de ROM) permet d'élaborer des programmes très complexes, dans 
un petit espace mémoire. 


De plus, cet ordinateur est équipé de quatre circuits de contrôle 
indépendants : 

- pour le générateur de sons 

- pour la gestion du clavier 

- pour la gestion de l'écran 

- pour coordonner le tout (286) 

ce qui permet d'activer deux ou trois de ces périphériques en 
même temps et donc d’accroftre la vitesse d'exécution. 


11 peut être équipé, à un coût très bas, d’un magnétophone qui 
offre la possibilité de sauvegarder des programmes et des fichiers 
en toute sécurité. Etant stéréo, il accepte les programmes sur une 
piste, tout en laissant l’autre à un éventuel commentaire verbal. 


Ce manuel a pour seul objectif de vous familiariser à l'emploi du 
BASIC résident des SV-318 et SV-328, ainsi qu’à l’enregistreur 
associé à ces appareils (SV-963), 


ATTENT I ON : LISEZ TRES ATTENTIVEMENT LES MANUELS 
D’INSTALLATION LIVRES AVEC CHACUNE DES MACHINES. LA MISE SOUS 
TENSION NE PEUT S'’'EFFECTUER QU’UNE FOIS TOUS LES ELEMENTS 
CONNECTES. UN BRANCHEMENT OÙ UN DEBRANCHEMENT SOUS TENSION PEUT 
ENTRAINER LA DESTRUCTION D'UN OÙ PLUSIEURS CONSTITUANTS DE VOTRE 
ORDINATEUR ET CET "ACCIDENT" N’EST PAS COUVERT PAR LA GARANTIE. 
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CHAPITRE I 


Introduction 
à la programmation structurée 


Cette partie a pour objectif de vous familiariser avec quelques 
notions de programmation. Vous ne comprendrez peut-être pas 

toutes les notions présentées mais celles-ci seront illustrées dans 
la suite de cet ouvrage. 


Programmer consiste à analyser une situation particulière, à 
exprimer des comportements qui permettent d’y répondre et à 
formuler cette démarche dans un langage que la machine va 
comprendre: dans votre cas, ce langage sera le BASIC acronyme de 
“Beginner'’s All purpose Symbolic Instruction Code" (code 
d'instruction symbolique pour débutants toute orientation). 


Connaftre le BASIC ne signifie pas que vous savez programmer ! En 
fait, la programmation demande surtout une analyse préalable avant 
tout travail sur la machine. La créativité portera surtout sur 
l’analyse du problème : si celle-ci est bien faite, l’écriture du 
programme suivra une démarche linéaire, chaque instruction se 
succédant clairement, et la transposition sur machine deviendra une 
tâche facile. Programmer correctement apporte trois avantages : 

une conception facilitée, une utilisation facile et claire, et 
surtout une maintenance facilitée. 


La conception 


S’il est très facile de rédiger un programme de conjugaison, de 
résolution de problèmes simples d’arithmétique, il n’en est plus de 
même lorsque vous vous intéressez à des programmes de gestion que 
ce soit en comptabilité ou en traitement de fichiers (des 

clients, des stocks, ...). 


Les premiers peuvent être réalisés directement, pas besoin de 
travail préparatoire. Si vous maftrisez suffisamment le langage 

de programmation, vous n'avez qu’à vous mettre au clavier.il n’en va 
pas de même pour les seconds qui ne permettent plus d’être 
appréhendés dans leur totalité ; il est alors nécessaire de morceler 
la tâche et de rédiger de petits programmes très courts dont la 
structure est claire. Un avantage non négligeable de ce procédé est 
qu’un programme ainsi conçu fonctionne souvent dès la mise en 


10 


route ; si ce n’était pas le cas, la correction serait plus facile 
car la conception modulaire favorise une recherche et une 


localisation plus aisée des erreurs. 


Utilisation 


Celui qui va utiliser le programme doit pouvoir le faire dans les 
meilleures conditions et avec le plus de facilités possibles. 11 
est important que le programme ne se "plante" pas, suite à une 
manoeuvre inadéquate de l’utilisateur. L'ordinateur doit faciliter 
la tâche de celui qui utilise un programme et non étre la 

source d’ennuis supplémentaires. C’est pour cela que vous devez 
répondre très soigneusement aux deux questions suivantes : 


- Pourquoi réaliser un tel programme ? 
(en quoi va-t-il simplifier le travail de l'utilisateur 7?) 


- Comment l'utiliser de la manière la plus simple qui soit ? 


Maintenance 


Ce n’est plus à l'utilisateur que nous pensons en abordant ce point 
mais bien à vous qui mettez un programme à la disposition d’autrui 
ou, encore plus simplement, qui programmez pour votre plaisir. Il 
n’est pas toujours facile de se retrouver dans un listing, même 
s’il est le résultat de nos cogitations. Pratiquer une 
programmation structurée, c'est permettre de mieux comprendre un 
logiciel, de "voir clair", ceci en vue de le modifier. En effet, il 
n’est pas rare de constater qu'après avoir utilisé le logiciel 
pendant quelque temps, il ne répond plus à ce que nous en 
attendions. 11 faut modifier certains paramètres. Si vous n’y avez 
pas pris garde, vous devrez recommencer la programmation d’une 
partie plus ou moins importante du programme, si ce n’est le 
programme dans sa totalité. 


Une programmation structurée vous permettra d'éviter ce genre de 
désagrément, notamment parce que pour chaque module (une partie de 
programme ayant une existence propre), il est possible de préciser 
les entrées, les sorties et sa fonction. 


LES PRINCIPES DE BASE 


La rédaction d’un programme passe par une succession d'étapes que 
nous allons examiner maintenant. Elles sont au nombre de quatre : 


—- la description du problème, 

— l'analyse du problème et procédure de résolution, 
— le codage (écriture du programme), 

— l'essai et la mise au point. 


Le guide du SPECTRAVIDEO / 11 


La description du problème 


Décrire ce que l’on veut faire est une tâche qui semble tellement 
évidente que l’on oublie fréquemment d'y consacrer le temps 
nécessaire. Cela conduit souvent à des déboires et le temps mis à 
rechercher les erreurs, à corriger le programme, dépasse de très 
loin celui nécessaire à une approche structurée. 


Avant de débuter une application, posez-vous les questions 
suivantes : 


- qui 7? 
fait quoi ? 
dans quelles circonstances ? 


& qui : en général un utilisateur déterminé. 
Vous ne réaliserez pas un programme semblable, s’il 
s'agit d’un enfant ou d’un adulte. 


8 fait quoi : Quel est le produit attendu ? 
C’est l’ensemble des informations qui “sortiront” 
de la machine : 


- quels sont les messages qui s'afficheront ? 

- quels sont les contenus de variables qui devront 
être exprimés ? 

—- quelles sont les expressions qui devront être 
écartées ? (domaine d’utilisation) 

- quelle est la forme de la sortie des informations: 
affichage, impression, sauvegarde disquette ou 
cassette, ... 7? 


B dans quelles circonstances : 
Cette question porte sur "l'entrée" des informations: 


- quelles informations va-t-on fournir 7? 

- quelles sont les limites de ces informations ? 
(domaines à éliminer) 

- que faire dans ce cas ? 

- par quel moyen introduire les informations ? 
(clavier, cassette, disquettes, lecteur de 
code barre, ..,.) 


C'est à ce niveau que se pose le problème de savoir comment 
procéder pour passer de l'entrée à la sortie, pour aboutir à un 
résultat. 11 faut préciser le traitement à réaliser ainsi que les 
cas spéciaux à éviter ou à traiter. 


L'analyse du prob 1ème et 44e 1a 
procédure de résolution 


c’est la phase où votre créativité va pouvoir s'exprimer, I1 n’est 
pas toujours facile de concevoir un plan d’action qui, partant des 
informations reçues, conduit au produit attendu. Une méthode qui 
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porte ses fruits est de "jouer" le problème et de décrire les 
comportements successifs qui nous amènent au résultat. Chaque 
comportement s’exprimera sous la forme d’un verbe à l’infinitif et 
d’un ou plusieurs compléments. Lors d’une première approche, la 
description des comportements sera générale pour, après analyses 
successives, décrire des comportements élémentaires. 


La programmation structurée repose sur quelques principes : 


Le développement du programme doit étre effectué indépendamment 
de tout langage de programmation. 


Vous vous exprimerez dans votre langue maternelle avec 
éventuellement vos propres expressions même si elles n'existent 

pas dans le langage que vous utiliserez avec votre machine. Ce sera 
lors du codage que les consignes de traduction seront imposées par 
le langage utilisé. 


Dans cet ouvrage, nous utiliserons cependant un français 
simplifié qui, je l'espère, permettra de nous comprendre. 


Le programme doit être construit par niveaux et décomposé peu à 
peu. 


L'analyse s'effectuera du général au particulier. Une première 
approche exprimera des comportements généraux, chacun de ceux-ci 
sera alors repris et décomposé à son tour. Si une activité décrite 
nécessite plusieurs comportements, leur nombre sera réduit au 
maximum. La décomposition s’arrétera lorsque chaque comportement 
s’exprimera par un verbe d’action élémentaire pouvant être codé 
dans le langage de programmation. 


Chaque étape ne décrira que ce qui lui est strictement nécessaire, 
Les détails éventuels seront l’objet de sous-programmes ultérieurs 
ou de reprécisions dans des modules existant déjà. 


Le programme sera vérifié à chaque niveau. 


Dès que vous venez de décrire un module, vérifiez s’il fonctionne, 
s’il est en relation avec des modules décrits, si cette relation 
est correcte. Pour cela, choisissez des données et exécutez le 
programme à la main comme si vous étiez l’ordinateur et suivant les 
comportements que vous avez décrits. Si le résultat ainsi obtenu 
correspond à la réponse du problème, vous avez de grandes chances 


pour qu’une fois introduit dans la machine, votre programme ne 
présente pas d'erreurs logiques. 


Le codage 


Cette étape revient à transposer l’analyse en un langage de 
programmation, dans votre cas en BASIC. C’est ce que vous allez 
apprendre à réaliser tout au long de cet ouvrage. 
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11 vous arrivera très certainement de désirer transposer des 
programmes fonctionnant sur une autre machine. Dans ce cas, vous 
devrez transcrire le programme en "français" afin de pouvoir le 
recoder dans le BASIC propre à votre machine. Ce n’est pas 
toujours immédiatement réalisable, car il n'existe pas de BASIC 
universel, chaque machine possède sa propre adaptation qui permet 
d'utiliser au mieux ses capacités. Une table de conversion entre 
les instructions vous sera peut-être nécessaire. Vous en 
trouverez dans le commerce. 


Une autre difficulté viendra du fait que tous les programmes sont 
loin d’être basés sur une programmation structurée. Votre tâche 
sera alors beaucoup plus difficile. 


On insiste rarement sur ce fait, mais lors de votre codage prévoyez 
l'élaboration d’une documentation relative à votre programme. 
Celle-ci peut apparaîftre sous forme de remarques dans votre 

listing ou faire l’objet d’un document annexe. Tant que vous aurez 
en mémoire votre programme, cela ne vous semblera pas nécessaire, 
mais attendez que le temps soit passé ; après quelques mois voire 
quelques semaines vous ne vous souviendrez plus de ce que réalise 
“ce" petit module et pour le modifier... 


Less a i e t la mise au point 


Un programme fonctionne rarement dès sa première exécution et la 
mise au point risque de vous prendre beaucoup de temps si votre 
analyse n’a pas été réalisée avec soin. Les erreurs les plus 
fréquentes sont : 


B les erreurs de syntaxe : souvent dues à votre inattention, 
elles sont repérées et indiquées par 
l'ordinateur et de ce fait, faciles 
à corriger, I1 s’agit le plus souvent 
de fautes de frappe, de non-respect 
du code de traduction en BASIC. 


EH les erreurs de déroulement : qui se manifestent par 
l’obtention d’un résultat totalement 
différent de ce qui était prévisible 
pour les données introduites. Ces 
erreurs relèvent de la logique de 
votre programmation et ont pour 
origine une analyse défectueuse. 
Dans ce cas, il n’est pas rare de 
devoir reprendre tout le travail. 


5 erreurs d'exécution : elles apparaissent lors d’un 
comportement anormal de la machine. La 
capacité de votre ordinateur a des limites 
et dans des conditions particulières 
celles-ci sont dépassées : division 
par zéro, débordement de la capacité 


mémoire argument illégal dans une 
fonction, ... 

Ces erreurs n’apparaissent malheureusement 
pas toujours pendant l'essai et c'est 

lors d’une utilisation intensive du 
programme qu'elles vont se révéler. A ce 
moment, retournez à votre analyse et à 
votre organigramme car l'origine de ces 
erreurs relève d’un défaut de conception, 
d'une analyse qui n’a pas été suffisamment 
poussée, 


LES STRUCTURES DE BASE DE LA 
PROGRAMMAT TION 


Quelle que soit la tâche décomposée à programmer, on se rend 


compte que trois structures seulement sont nécessaires : 


— la séquence, 
— la décision, le choix ou l'alternative, 
— la répétition, la boucle ou l’itération. 


Pour décrire ce que réalise un programme, nous utiliserons divers 
moyens. 


O L’ORGANIGRAMME exprimera sous forme générale la succession 

des procédures à suivre. Il sera composé d’une suite de rectangles 
dans lesquels les actions seront décrites globalement, chaque étape 
correspond à un module. 


DO Chaque module sera ensuite décrit. Pour cela trois formes 
d'expressions sont possibles : l’ordinogramme, le structurogramme 
et le pseudo-code. 


L’ ORDINOGRAMME est l'expression à l’aide de symboles 

graphiques (carrés, parallélogrammes, ...) des différentes unités 
opératoires. Des traits pouvant être fléchés précisent le 
déroulement des opérations. 


Si cette forme d'expression s'utilise dans le cadre de programmes 
très simples, elle se prête mal à la description de structures 
plus complexes. 


Le STRUCTUROGRAMME a été développé pour combler cette 

déficience de l'’ordinogramme. Il n’emploie aucun branchement mais 
s’appuie sur une technique d’emboftements. Le cadre extérieur 
correspond au programme principal et chaque petite "botte" située 
à l’intérieur, à l’un des sous-programmes. 


Le PSEUDO-CODE consiste à exprimer en langage ordinaire, 
agrémenté de quelques notations particulières, les actions que doit 
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exécuter la machine. Cette expression est très proche du langage 
courant et nous introduirons au fur et à mesure les termes 
spécifiques. 


Parmi ces trois formes, vous choisirez celle qui correspond le 
mieux à votre manière d'exprimer des faits. Vous constaterez que 
dans cet ouvrage certains programmes seront présentés dans un mode 
plutôt que dans un autre, excellent exercice si ce mode ne 
correspond pas au vôtre ! 


og Le PROGRAMME sera la traduction BASIC de votre ordinogramme, 
structurogramme ou pseudo-code. 


Envisageons chacune des structures de base. 


LA SEGUENCE 


Elle correspond à la succession de deux ou plusieurs actions. Elle 


s'exprime par : 


FAIRE opération 1 


Prenons comme exemple le fait d’afficher l'adresse d’une personne. 


DEBUT 
Afficher "Dupont" 


Afficher “Albert” 
R 


opération 1 
opération 2 
opération 3 


FIN 


FAIRE opération 2 


FAIRE opération 3 


FIN 


AFFICHER "Dupont" 


AFFICHER "Albert" 


Afficher " AFFICHER "R. Chose” 


Afficher “Foufni" 
Ce 


PROGRAMME : 


Chose" 


AFFICHER "Foufni" 


FIN 


19 PRINT "Dupont" 

29 PRINT "Albert" 

39 PRINT "Rue Chose" 
49 PRINT "Foufni" 

59 END 
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LA DECISION (encore appelée l'alternative, la sélection) 


Structure générale 


11 s’agit d’une des structures de base de la programmation structurée et 
elle correspond à un choix possible entre deux traitements au départ 
d’une condition. 


Par exemple : 

SI il pleut (CONDITION) 
ALORS je mets un imperméable (ACTION 1) 
SINON je reste en pull (ACTION 2) 


La représentation de cette structure est : 


condition SI condition 


ALORS action 1 


action 1 action 2 SINON action 2 


structurogramme pseudo-code 


et la traduction BASIC : 
IF condition 


THEN action 1 
ELSE action 2 


Voyons à 1 aide d’un exemple : 


Après avoir demandé deux nombres différents, la machine indique la 
relation d’ordre entre ceux-ci. 


Mettre dans Ni 


Demander "un nombre ?" 


Demander "un nombre 7?" Mettre dans N2 


N1 > N2 


Affichez 
Ni " est plus 
grand que " N2 


Affichez 
Ni " est plus 
petit que " N2 


Ou en pseudo-code : 


Début 

Vider écran 

Demander "un nombre 7"; Mettre dans Ni 
Demander "un nombre ?7"; Mettre dans N2 
Si N1 > N2 


Fin 


Traduction en BASIC : 


19 
29 
39 
49 
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CLS 

INPUT "UN NOMBRE ? ";N1 
INPUT "UN NOMBRE ? "; N2 
IF N1 > N2 THEN PRINT N1" 
ELSE PRINT N1" EST PLUS PETIT QUE "N2 
END 
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Alors Afficher N1 " est plus grand que " N2 
Sinon Afficher N1 " est plus petit que " N 


2 


EST PLUS GRAND QUE "N2 


Que +aire ss i VOUS ne desirez 
pas utiliser 1e SINONM 7 


Deux solutions s'offrent à vous (seul le codage en BASIC est 
modifié, ne touchez ni au structurogramme ni au pseudo-code). 


O Utiliser deux conditions successives. 


19 
29 
39 


IF N1 > N2 THEN PRINT N1" 
IF Ni <= N2 THEN PRINT N1"* 


49 END 


Cette solution demande de répéter une condition, 


expression exprimant la négation de la première. 


EST PLUS GRAND QUE "B 
EST PLUS PETIT QUE "B 


la seconde 
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o Utiliser un branchement. 


19 ... 

29 IF N1 > N2 THEN PRINT N1" EST PLUS GRAND QUE "N2 
: GOTO 49 

39 PRINT N1" EST PLUS PETIT QUE "N2 

49 END 


Un branchement est une instruction qui ordonne à la machine de 
poursuivre l'exécution du programme en un numéro de ligne 
particulier. Dans l'exemple, GOTO 49 correspond à "Aller à la 


ligne 49 " ou dans notre jargon préparatoire au codage : "Aller en 


fin de programme". 


Dans cette deuxième possibilité, vous constaterez que : 


- si la condition est remplie (est vraie) le programme se 
poursuit par les instructions figurant derrière le ALORS 
c'est-à-dire : 

Afficher un message 
et (figuré par ":") 
Aller à la fin du programme 


- si la condition n'est pas remplie (est fausse), le programme se 
poursuit à la ligne suivante. 


Ce processus nous a permis d'introduire : 
Aller en ... codé par  GOTO no ligne 
: signe de ponctuation permettant de séparer 


deux instructions se trouvant sur une même 
ligne de programme. 


Ekemples illustrant la condition 


- Rendre positif un nombre négatif après avoir demandé un nombre 
à l'utilisateur. 


- Après avoir demandé un résultat sur 19, afficher "Très bien" si 
celui-ci est supérieur à 8, "Bien" si compris entre 6 et 8, 


"Moyen" si compris entre 4 et 6, "insuffisant" si inférieur à 4. 


On suppose que le résultat introduit est bien supérieur à 9 et 
inférieur ou égal à 16. 


SOLUTION 1 
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Demander "Ecrivez un nombre : 


Mettre dans N 


Oui 


Fin 


REMARQUE : ABS(N) est une fonction qui 


donne comme résultat la 


valeur absolue du nombre compris entre parenthèses. 


En BASIC 


19 CLS 

29 IF N<@ THEN N=ABS (N) 
39 PRINT °N = "3;N 

49 END 


Demander 
Mettre dans R 


Afficher 
"Très bien" 


Afficher 
“Bien” 


Afficher 
"Moyen" 


“Introduisez un résultat 


Afficher 
“Insuffisant" 
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Variable : R =: Résultat 


19 CLS 

29 INPUT "INTRODUISEZ UN RESULTAT : "5 R 

39 IF R>8 THEN PRINT "TRES BIEN" ELSE IF R>6 THEN PRINT 
"BIEN" ELSE IF R>4 THEN PRINT "MOYEN" ELSE PRINT 
“INSUFFISANT" 

49 END 


Les relations de conditions 


Opérateur de entre variables 
comparaison numériques alphanumériques 
est est 
= égal à le même que 
<> différent de différent de 
supérieur à après 
< inférieur à avant 
>= supérieur ou égal à après ou le même que 
<= inférieur ou égal à avant ou le même que 


Chacun de ces opérateurs permet la comparaison de deux expressions, 
celles-ci pouvant être des variables exprimant des nombres ou des 
expressions alphanumériques. 


Par exemple : 


IF A=2 THEN ... 

IF B>@ THEN ... 

IF R$="BONJOUR" THEN ... 
IF AFS<>BS THEN ... 


LA REPETITIOMNM (l’'itération, la boucle) 


Cette structure va permettre à l’ordinateur de répéter plusieurs 


fois un même ensemble d'opérations. Plusieurs approches peuvent 
être suivies, 


REPETER actions) 
JUSQU A condition 


Par exemple : demander des nombres jusqu’à ce que leur 
somme donne ou dépasse 199. 


Répéter 


Demander "un nombre ? "; 
Mettre dans N 


Jusqu'à S > 199 


Afficher "Somme = ":;5S 


19 


29 


36 


49 


959 


69 


79 
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INPUT "UN NOMBRE ? "353 N 


IF S<=199 THEN GOTO 36 
PRINT "SOMME = "35 


END 


Remarquez que "jusqu’à S)>199" sera codé par la structure 


IF négation de la condition THEN aller à répéter. 


La représentation générale de cette structure est : 


jusqu’à condition 


Répéter 


Début 


Fi 


action 


n 


Jusqu'à condition 


A titre d'illustration voici un programme qui compte jusqu’à 19 et 


affiche les nombres de 1 à 16. 


Répéter 


Jusqu’à N)>19 


19 


29 


39 


49 


59 


69 


PRINT N 


N = N+1 


IF N=<19 THEN GOTO 3@ 


END 


A titre d’exercice, écrivez le structurogramme d’un programme 


qui: 


Après avoir demandé le nombre d'élèves, 


convertira le résultat de chaque élève. 


le maximum par rapport 
auquel l’évaluation a été faite, le maximum par rapport auquel le 
résultat de chaque élève doit étre ramené, 


le programme 


Exemple : si le contrôle effectué est sur 8 et que l’on 
le résultat obtenu a été 


désire connaître le résultat sur 29, si 
de 6/8, l'ordinateur affichera 15/29. 


CP <-- g 


Demander "Nombre d'élèves ? "; 
Mettre dans N 


Demander "Total du contrôle ? "; 
Mettre dans TC 


Demander "A ramener sur 7? 
Mettre dans RS 


Passer 1 ligne 


Répéter 


Demander "Résultat 7? "; 
Mettre dans R 


RC <-- R / TC + RS 


Pfficher "Résultat converti 
= "3; RC 


Passer 1 ligne 


CP <&-- CP + 1 


Jusqu’à CP > N 


Afficher "Traitement terminé." 


"Au revoir." 


19 


29 


39 


49 


99 


69 


79 


89 


La: 


199 


119 


129 


139 
149 


159 


CLS 


INPUT'"NOMB. D’EL."; 
N 


INPUT"TOTAL CONT " 
5 TC. 


INPUT'"A RAMENER 
SUR "35 RS 


PRINT 


INPUT"RESULTAT "3;R 


RC=R/TCXRS 


PRINT"'RES. CONV. ="3;RC 
PRINT 

CP=CP+1 

IF CP<=N THEN GOTO 79 


PRINT "TERMINE" 
PRINT "AU REVOIR" 


END 
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TANT QUE condition FAIRE 


Soit un programme qui 
étant 


e 

2 

s 

Demander "Nombre de valeurs ? "; 49 
Mettre dans N 

Tant que CP =< N 99 

Demander "Valeur ? 

Mettre dans V 69 

. 

: 

96 

Afficher "Moyenne = "; S/N 109 


Le codage entrafne : 

- la négation de la condition ; 
- en fin du traitement partiel, 
GOTO. 


un retour 


calculera la moyenne de 19 
introduits au clavier par l'utilisateur. 


nombres ceux-ci 


INPUT "NOMBRE DE 
VALEURS ? "35 N 


IF CP>N THEN GOTO 196 


INPUT "VALEUR ? "35; V 


CP = CP + 1 
GOTO 59 
PRINT 


"MOYENNE = "3; S/N 


END 


à la condition par un 


Cette structure se présente de manière générale sous la forme : 


Tant que condition 


a 
EE 


Tant que condition Faire 


Début 
action 1! 
Fin 


action 2 


84 


POUR compteur var iant de A à PE 
par pas de 1 , FAIRE 


Dans l'illustration précédente nous avons vu que la répétition se 
réalisait en comparant un compteur avec une valeur donnée 
déterminant ainsi l’arrét ou la poursuite de traitement. Ce 
compteur porte le nom d’indice ou de variable de boucle. 

Une telle structure se rencontre si souvent qu’une instruction a 
été créée. 


Si 1 est le nom de l'indice et que celui-ci varie de 1 à 19 en 
procédant 1 par 1 (par pas de 1), cette structure sera exprimée par 


Pour I1=1 à 19 (par pas de 1) Pour I variant de 1 à 19 Faire 
Début 
Fin 


Fin de Pour 


action 2 


Reprenons le compteur de 1 à 19. 


Pour I=1 à 19 


19 CLS 


29 FOR I=1 TO 19 


Afficher I 39 PRINT I 
Fin de Pour I 49 NEXT I 
59 END 


Cette structure fonctionne comme ceci : 


B I prend la valeur 1 et affiche cette valeur. 
B Au "NEXT" l'ordinateur 
— incrémente le compteur du nombre de pas précisé (si 
rien n’a été écrit, il ajoute 1) 
— compare le résultat avec la borne finale (19) 
si I est inférieur ou égal à cette limite alors le 
traitement est repris; 
si non, le programme se poursuit à l’instruction 
suivant le NEXT. 


Vous pouvez procéder par 2, par -3, par 1.5, par ... 11 vous suffit 
de préciser le pas du compteur. 
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Reprenons le calcul de la moyenne et utilisons ce procédé. 


Demander “Nombre de valeurs 7? "; 
Mettre dans N 


39 INPUT "NOMBRE DE 
VALEURS 7 "35 N 


49 FOR 1=1 TON 


Demander "Valeur ? 59 INPUT "VALEUR ? "SN 
Mettre dans N 
69 S = S + V 
Fin de Pour ?79 NEXT I 


Afficher "Moyenne = "5; S/N 


89 PRINT "MOYENNE = "3;3S/N 


99 END 


Lors de la rédaction d’un programme, vous pouvez être confronté à 
la question de savoir quel type de répétition employer. 


Si le problème définit une variable d'indice évidente, vous 
utiliserez l'expression de boucle : POUR ... À ... PAS DE ... 


Dans les autres cas, essayez en premier lieu la structure TANT QUE 
... FAIRE. La structure REPETER / JUSQU’A n’est à utiliser que dans 
les cas où vous êtes sûr que vous devez réaliser l’action au 

moins une fois. 


Une utilisation particulière de 
1a boucle = l1a TEMPORISATION 


Dans certains cas un affichage doit être vidé. Il n'existe pas 
sur chaque ordinateur une instruction pré-déterminée réalisant 
cette temporisation. 11 est cependant très facile de la réaliser. 
Nous allons ordonner à l'ordinateur de ne rien faire ou plutôt de 
“tourner en rond" un certain nombre de fois. 


Par exemple 1999 + o is 


FOR T=1 TO 1969 : NEXT T 


L'ordinateur, tant que T ne sera pas supérieur à 1998 tournera sur 
lui-même. 


Essayez ces deux programmes : 


Vider écran Vider écran 
“Atticher "Bonsours CR |. Afficher “Bonjour* 
idee écrans 0 MU Tennorisstion. 
UT Vider: écran 
RC à CS 


1999 n’est peut-étre pas suffisant ou au contraire conserve 
l'affichage trop longtemps. À vous de modifier cette valeur pour 
l'adapter à l’utilisation à laquelle vous destinez votre 
temporisation. 
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CHAPITRE Il 
Commandes directes 


Ces commandes sont accessibles directement depuis le clavier et 
peuvent vous être particulièrement utiles. Chacune va vous être 
présentée séparément avec, si possible, des illustrations. 


Quelques conventions préalables : 
- les lettres minuscules correspondent à des variables, 
- les "<" et"}>" encadrent des informations facultatives. 


AUTO <a><,b?}> enclenche la numérotation automatique des 
lignes avec comme numéro de la première ligne la 
valeur a et comme incrément, la valeur b. 
Si AUTO génère un numéro de ligne qui a déjà été 
utilisé, un astérisque est affiché derrière le 
nombre afin de vous avertir que l'information que 
vous allez introduire remplacera une information 
existante. Si dans ce cas, vous tapez <ENTER> 
immédiatement derrière l’astérisque, la ligne sera 
conservée et un nouveau numéro de ligne sera 
créé. 


AUTO peut étre arrêté en tapant <CTRL-C> mais 

la ligne se terminant par cette frappe n’est pas 
conservée. 

Un autre procédé existe, c'est <CTRL-STOP> qui 
agit de la même manière. 


Exemple : 


AUTO 199,19 numérote 199 / 119 / 129 / ... 


AUTO 59,5 numérote 59 / 55 / 69 / 65 / ... 
AUTO numérote 19 / 29 / 39 / ... 

AUTO ,5 part de @ avec un incrément de 5 
AUTO .,29 part de la ligne courante, c'est ce 


qu’indique le <.2>, avec un 
incrément de 29, 


COLOR a,b,c 


CONT 


(un des trois paramètres doit au moins être 

précisé) 

Permet de définir les couleurs de l’affichage : 

a la couleur du texte 

b la couleur du fond, 

[es la couleur de la bordure. Ce dernier indice ne 
sert que dans les cas où vous utilisez les 
écrans graphiques. 


lé couleurs sont accessibles : 

8 - transparent 8 - rouge moyen 
1 - noir 9 - rouge clair 
2 - vert moyen 19 - jaune foncé 
3 - vert clair 11 - jaune clair 
4 - bleu foncé 12 - vert foncé 
9 - bleu clair 13 - magenta 

6 - rouge foncé 14 - gris 

? - cyan 15 - blanc 


Deux fonctions utilisant cette commande sont 
directement accessibles depuis le clavier : 


SHIFT F1 ==} COLOR 15,4,5 ce qui signifie : 
15 : lettres blanches 

4 : fond bleu foncé 

S : bordure bleu clair 


F1 ==} COLOR et vous y ajoutez ce que vous 
souhaitez. 
Par exemple pour obtenir un 
affichage en noir et blanc 
deux solutions s'offrent à vous 
COLOR 1,15 ou 
COLOR 15,1 


Permet de continuer l'exécution d’un programme 
après un <CTRL-C> ou un <CTRL-STOP} ou un <END». 
L’exécution reprend au point où le programme 
s’est arrêté. Cette commande est souvent 
utilisée avec le <STOP} pour corriger un 
programme. Guand le programme est stoppé, les 
valeurs intermédiaires peuvent étre examinées 

et modifiées par commandes directes. L’exécution 
peut être reprise par <CONT». 

Cette commande peut également être utilisée 

pour continuer l'exécution d’un programme après 
un message d'erreur. 

<CONT?> ne fonctionne pas si une correction a été 
effectuée après un arrêt. 
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DELETE a-b Efface des lignes du programme. Si le numéro 
de ligne devait ne pas exister , un "illegal 
function call" - appel d’une fonction 
illégale - s'affiche. 


DELETE 49-199 : efface toutes les lignes 
comprises entre 49 et 199. 
efface la ligne 49 

efface toutes les lignes 
inférieures à 49 ainsi que la 
ligne 49. 


DELETE 4@g 
DELETE -49 


REMARQUES : Le <.}> peut remplacer un numéro de 
ligne. 
DELETE a peut être obtenu par la 
frappe du numéro de ligne <a} suivi 
de <ENTER?. 


KEY LIST Affiche les diverses fonctions pré-programmées. 
A la mise en route du système, vous avez : 


Fi : COLOR F6 : COLOR 15,4,5 
F2 : AUTO F7 : CLOAD" 

F3 : GOTO F8 : CONT 

F4 : LIST F9 : LIST. 

FS : RUN F19 : CTRL L RUN 


Vous pouvez modifier l'attribution d’une 
fonction simplement par : 


KEY a, instruction 
où <a> est un nombre compris entre 1 et 19 - 
c'est le numéro de la fonction - et où 
l'instruction est ce que vous souhaitez. 
Par exemple, vous désirez mettre l’enregistreur 
en route en appuyant sur la touche F1, la 
commande sera MOTOR ON. Vous écrirez : 

KEY 1, "MOTOR ON"+CHR#(13) 
le <CHR#(13) > correspond à <ENTER?». 
Si vous désirez un listing qui se mette en route 
lorsque vous tapez sur la touche F4, il vous 
suffit d'écrire : 


KEY 4,CHRS(12)+"LIST"+CHRS(13) 


et en plus l'écran sera d’abord effacé (CHR#(12)). 


80 


LIST a-b 


NEW 


RENUM a,b,c 


Affiche la totalité ou une partie du programme 
se trouvant en mémoire centrale. 


Si <a> n’est pas indiqué, le programme sera listé 
à partir du plus petit numéro ; de même, si <b> 
n'est pas précisé, le listing s'arrêtera à la 
fin du programme. Si seul <a} est indiqué, c’est 
la ligne ainsi désignée qui s’affichera. 

Si <a> est remplacé par un point <.>, c'est la 
ligne où le programme s'est arrété qui sera 
utilisée comme ligne de départ. 

Si les valeurs <a} et <b> sont précisées, 

le programme compris entre ces deux numéros de 
ligne sera affiché, ces lignes étant inclues. 


Pour arrêter le défilement du listing, vous 
pouvez taper soit <CTRL-C> soit <CTRL-STOP> 

et vous vous retrouverez aux commandes de votre 
ordinateur. Si vous souhaitez reprendre le 
listing après un arrét, vous utiliserez <STOP} 
pour marquer l’arrêt et la même commande 

<STOP> pour relancer l’affichage. 


LIST liste le programme en mémoire 

LIST 599 liste la ligne 599 

LIST 146- liste toutes les lignes de 149 
à la fin 

LIST -106@ liste toutes les lignes depuis 
la plus basse jusqu’à 1099 

LIST 159-5909 liste des lignes 159 à 509 

LIST . liste la ligne où s’est arrêté 


le programme. 


Efface le programme résident en mémoire et met 

à zéro toutes les variables. 

Cette commande est utilisée avant l'introduction 
d’un nouveau programme. 


Renumérote les lignes du programme. 


a désigne le numéro de la nouvelle ligne. 
S'il n'est pas indiqué, il prend la 
valeur 19. 

b désigne le numéro de la ligne du programme 
à partir de laquelle la renumérotation 
va avoir lieu. Si ce numéro n’est pas 
précisé, il prendra comme valeur le 
numéro de la première ligne du programme. 

c précise l’incrément qui sera utilisé 
dans la nouvelle séquence. Par défaut 
la valeur sera de 19. 
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RENUM modifie également les instructions GOTO, 
GOSUB, THEN, ON...GOTO, ON...GOSUB désignant 
des numéros de lignes qui seront modifiés. 

RENUM ne peut être utilisé pour modifier 

l’ordre des lignes d’un programme. Par exemple, 
RENUM 15,39 quand le programme possède trois 
lignes numérotées 19,29 et 39 - ou pour créer 
des lignes dont le numéro est supérieur à 65529. 
Un “illegal function call" en résulterait. 


RENUM 1990,909,29 renumérote les lignes de 
999 à la fin du programme 
en commençant par 
la ligne 1999 et avec un 
incrément de 29. 

RENUM 399,,59 renumérote la totalité 
du programme avec 399 comme 
premier numéro de ligne 
et S9 comme incrément. 

RENUM renumérote la totalité du 
programme en commençant 
à la ligne 19 et avec un 
incrément de 19. 


RUN <n?> Met en route le programme à partir de la ligne 
<n> .Si le numéro de ligne n’est pas précisé, 
le programme débutera à la première ligne. 


RUN - mise en route du programme 
RUN 199 - mise en route du programme à partir 
de la ligne 199. 


TRON / TROFF Permet de suivre l'exécution d’un programme 
à la trace. 
C'est une aide précieuse pour corriger un 
programme. TRON entraîne l'affichage du 
numéro de chaque ligne par laquelle passe le 
programme. Le numéro s'affiche entre des 
crochets. TROFF interrompt l’action de TRON. 


WIDTH a Détermine le nombre de caractères qui seront 
affichés par ligne. Dans le cas de cet 
ordinateur <a> ne peut prendre que deux valeurs : 
39 ou 49 (sauf si vous possédez la carte 89 
colonnes). 


Le petit programme suivant vous permettra de le 
constater : 


19 R$="1234567899123456789912345678991234567899" 
29 WIDHT 39 
39 PRINT R# 


et dans un second cas : 


28 WIDHT 49 
39 PRINT R# 


Pour toute autre valeur, une erreur du type 
“illegal function call" s’affiche. 


Des touches um peu Spéciales 


STOP La frappe de cette touche entrafne l'arrêt 
du programme. Cette action est intéressante 
dans le cadre de la présentation d'écran lors 
de l’utilisation de programmes graphiques 
ou lors de l'affichage d’une grande quantité 
d’informations ou encore lors du défilement du 
listing de vos programmes. 
Une nouvelle frappe de cette touche relance 
le programme à partir de l’endroit où il s'était 
arrêté. 


CTRL C'est la touche de ConTRôle. Elle est utilisée 
en association avec une autre touche. 


Dans le cas où un programme est en cours de 
fonctionnement et que vous appuyez conjointement 
sur <CTRL? et <STOP}, le programme s’arrétera 

—- sur d’autres machines cela correspond au 

BREAK - et vous reprenez le contrôle de 
l'ordinateur, La remise en route du programme 
est possible grâce à l'instruction CONT. 


CTRL peut être utilisé avec d’autres touches : 
ne seront reprises que les commandes non décrites 
dans le chapitre relatif à l'édition. 


CTRL C : correspond au BREAK - il n’a pas d’action 
réelle - préférez-lui STOP. 
CTRL G : déclenche un petit "bip". 


ENTER La touche la plus utilisée. Vous tapez cette 
touche à la suite de chaque commande directe 
afin de signaler à l'ordinateur que vous lui 
transmettez le flambeau. C'est l'interrupteur de 
travail ou de repos ! 
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CAPS/LOCK Cette touche vous permet d'afficher les lettres 
majuscules et minuscules. Elle agit comme un 
interrupteur : enfoncée , la petite lampe 
s’allume et l’écran affichera des lettres 
majuscules, En retapant, la lampe s'éteint et se 
sont des minuscules qui s’affichent. 

REMARQUE : vous pouvez utiliser le clavier 
comme celui d’une machine à écrire ; la frappe 
d’une touche en maintenant enfoncée la touche 
SHIFT entrafnera l'affichage de la lettre 
majuscule. 


CLS/HM 

COPY En tapant sur cette touche, l'écran est vidé 
et le curseur se positionne dans le coin 
supérieur gauche de l’écran. 
En tapant <SHIFT} et <CLS}, seul le curseur 
se déplace vers le coin supérieur gauche. 


PASTE Vous utiliserez cette touche quand vous 
désirerez insérer un caractère dans une ligne 
de programme. Voyez à ce sujet le chapitre 
relatif à l'édition. 


CUT En tapant sur cette touche, vous effacez le 
signe se trouvant sous le curseur. 


ESC Cette touche est souvent utilisée dans les 
applications. Sa fonction essentielle est 
d'interrompre une opération en déroulement ou 
encore pour relancer les opérations. Une 
lecture du clavier est souvent à l’origine 
de ce procédé. 


(1 
(] 
V 


N'a comme seul rôle que de déplacer le 

curseur de 8 positions vers la droite ce qui se 
révèle utile pour la présentation des programmes. 
Une ligne présente 5 positions de tabulation 
privilégiées. 


LEFT GRAPH Ces touches sont utilisées pour obtenir les 
RIGHT GRAPH caractères semi-graphiques qui figurent de 
chaque coté des touches du clavier. 
LEFT permet l’affichage de la figure gauche 
tandis que RIGHT visualisera celle de droite. 
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CHAPITRE IN 
Editeur 


Un éditeur est un ensemble d'instructions qui permettent de rédiger 
et de corriger rapidement et facilement un programme. Il doit 
offrir la possibilité d'insérer des caractères dans une ligne et 
d’en effacer sans devoir réécrire en entier celle-ci. 


Celui du SPECTRAVIDEC est un "éditeur pleine page", ce qui signifie 
que les modifications peuvent se faire à un endroit quelconque de 
l'écran. 


Son principe est simple: remonter le curseur (à l’aide du joystick 
intégré (SV-318), des touches fléchées (SV-328) ou de certains 
caractères de contrôle), effectuer la ou les modifications puis 
appuyez sur ENTER. La pression de cette dernière touche provoquera 
l'enregistrement de la ligne modifiée. 


Les exemples ci-dessous sont écrits en majuscules. 1I1S peuvent aussi 
être transcrits en minuscules, l’ordinateur se chargeant de 

réécrire tous les caractères ne se trouvant pas entre guillemets en 
majuscules. Celles-ci s’obtiennent au clavier par la pression de 
SHIFT et de la touche correspondante. On peut bloquer le mode 
majuscule par la pression de CAPS LOCK; l'indicateur lumineux 
s’allumant. Pour supprimer ce mode, repousser cette touche. 


B Tapez les instructions suivantes: 


CLS : NEW (efface l'écran et vide la mémoire) 
19 PRINT "BONJOUR" 
29 PRINT "AU REVOIR" 


Une faute de syntaxe s’est glissée dans la ligne 19. Il faut 
insérer un I après les lettres PR, Déplacez le curseur et amenez-le 
sur la lettre N de PRNT à la ligne 19. PFoussez sur la touche 
INS/PASTE (le curseur diminue de moitié, signifiant que l’on est en 
mode insertion). Poussez I, puis ENTER. Le programme est correct. 
Pour l'utiliser, amenez le curseur à une ligne vierge de l’écran, 
puis tapez RUN ENTER ou la touche FS ou encore, dès que votre 
correction est effectuée, tapez ENTER suivi de SHIFT F5. 


E Tapez: 
CLS : LIST 
Vous obtenez alors le programme: 


19 PRINT "BONJOUR" 
29 PRINT "AU REVOIR" 


Si vous désirez compléter la ligne 19, en voulant faire imprimer le 
message: 


“BONJOUR A TOUS ET A TOUTES QUI ME REGARDEZ" 


Vous devrez amener le curseur sur le deuxième guillemet, puis 
taper: 


A TOUS ET A TOUTES QUI ME REGARDEZ" 


Vous constaterez que vous avez écrit sur la ligne suivante et vous 
obtenez: 


19 PRINT "BONJOUR À TOUS ET A TOUTES QU 
I ME REGARDEZ"EVOIR" 


Avant de pousser ENTER pour approuver la modification, il faut 
éliminer les caractères parasites sinon ils seraient assimilés à la 
ligne 19. Pour cela, plusieurs solutions sont possibles: 


- appuyer autant de fois sur la touche SPACE qu’il sera 
nécessaire pour les effacer. 

— appuyer sur la touche --} à deux reprises 

- appuyer simultanément sur CTRL E qui efface la partie de la 
ligne située après le curseur 

- appuyer sur la touche DEL/CUT jusqu’à la disparition de ces 
caractères. 


N'oubliez pas de taper ensuite ENTER pour faire accepter la 
modification. 


Touches d'edit ion 


INS/PASTE Permet d'insérer des caractères. Le caractère 
se trouvant sous le curseur sera situé à droite 
de ceux rajoutés. Une nouvelle pression sur cette 
touche supprime ce mode. 


DEL /CUT Permet d'effacer le caractère se trouvant sous 


le curseur puis de décaler les suivants vers la 
gauche. 
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——} Tabulation de 8 caractères maximum vers la 
droite. Remplace les caractères rencontrés par 
des espaces à partir de celui se trouvant sous le 
curseur. 


<—- Efface le caractère situé directement à gauche 
| du curseur et déplace la fin de la ligne d’un 
caractère vers la gauche. 


CLS/HM/COPY Efface l'écran et place le curseur en haut de 
celui-ci. 


SHIFT CLS/HM/COPY 
Place le curseur en haut de l'écran sans l’effacer. 


JOYSTICK - TOUCHES FLECHEES 
Déplace le curseur dans une des 8 directions du 
plan. Pour obtenir un déplacement en oblique sur 
le SV-328, tenez appuyées deux touches en même 
temps. 


ENTER Accepte la ou les modifications de la ligne. 


CARACTERES DE CONTROLE DE L'EDITION 


Caractères de déplacement 


CTRL B Déplace le curseur jusqu’au début du mot 
précédent. 

CTRL F Déplace le curseur jusqu’au début du mot 
suivant. 

CTRL J Déplace le curseur d’une ligne vers le bas. 

CTRL K Idem à SHIFT CLS/HM/COPY. Place le curseur au 


sommet de l’écran. 


CTRL N Déplace le curseur jusqu’à la fin de la ligne 
dans laquelle celui-ci se trouve. 


CTRL Déplace le curseur d’un caractère vers 1la 
droite. 


CTRL | Déplace le curseur d’un caractère vers la 
gauche. 

CTRL SHIFT 6 Déplace le curseur d'un caractère vers le haut. 

CTRL _ Déplace le curseur d’un caractère vers le bas. 


CTRL SHIFT A Idem à CTRL _ 


Caractères d'effacement 


CTRL E Efface la fin de la ligne, depuis la position 
du curseur, Troncature d’une ligne. 


CTRL H Idem à la touche <--. Efface le caractère situé 
à gauche du curseur et déplace la suite de la 
ligne d’un caractère vers la gauche. 


CTRL I Idem à la touche --}, 
CTRL L Idem à CLS/HM/COPY. Efface l'écran. 
CTRL U Efface toute la ligne dans laquelle se trouve 


le curseur, 


CTRL SHIFT H Positionne le curseur à la position de 
tabulation qui suit immédiatement le caractère, 
et ce, à la première pression. Par la suite, il 
se comporte comme la fonction DEL/CUT. 


Divers 


CTRL M Idem à ENTER 
CTRL R Idem à INS/PASTE. 
REMARQUES 


8 Lors de la frappe de la touche ENTER, l'ordinateur interprète 
toute la ligne sur laquelle se trouve le curseur, Cela peut 
provoquer parfois des erreurs involontaires. 

Tapez le programme suivant : 


19 PRINT "BONJOUR" 
29 PRINT "AU REVOIR" 
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Remontez le curseur sur le caractère 1, tapez LIST puis poussez 
ENTER. 


L'ordinateur affiche: Syntax error. 


En effet, lorsque vous avez introduit la commande LIST, vous 
obteniez: 


LISTRINT "BONJOUR" 


ce qui est une instruction incompréhensible. Il1 fallait, avant de 
pousser ENTER, effacer la fin de la ligne par CTRL E. 


La bonne manière aurait été de taper le programme, de remonter le 
curseur sur le 1, de taper LIST, CTRL E et enfin ENTER. 


B De même, entrez le programme précédent et tapez la séquence: 


CLS ENTER 
PRINT "ABCDEFGHIJKLMNOPGRSTUVWXYZ" ENTER 


Remontez le curseur sur le P de PRINT. Tapez LIST CTRL E ENTER. 
Le programme s'affiche tout en conservant une partie de la chaîne 
de caractères ABC... 

Remontez le curseur sur le 1 de l1a ligne 19 et tapez ENTER. 
Enfoncez la touche CLS/HM/COPY (effacer l’écran) et enfin LIST 
ENTER. Vous obtenez alors une curieuse ligne 19: 


19 PRINT "BONJOUR"STUVWXYZ 


Une erreur involontaire s'est encore glissée lorsque vous avez 
remonté le curseur sur le 1 et tapé ENTER: à ce moment, elle était 


suivie de "caractères parasites" dus à l’affichage de la chaîne 
ABC... En tapant ENTER vous avez demandé d’accepter la ligne telle 
qu’elle était, en incorporant ces lettres. 


Si vous désirez effacer ces caractères superflus, remontez le 
curseur sur le S (première lettre à effacer), puis entrez CTRL E 
(effacement) suivi de ENTER (accepte la modification). 


B Si vous désirez recopier une ligne à un autre endroit du 
programme, il suffit de remonter le curseur sur le numéro de 1a 
ligne à reproduire placez le nouveau numéro, puis tapez ENTER. 
Exempie : dans le programme précédent, on désire reproduire 
une ligne identique à la 29 et lui donner le numéro 39 : 


Effacez l'écran 
introduisez LIST ENTER 
Remontez le curseur sur le 2 de 29 
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Tapez 3 ENTER 
Vérifiez en écrivant ensuite: LIST ENTER 


B Pour effacer une ligne de programme, on écrira simplement son 
numéro suivi de la pression de la touche ENTER. 11 faudra d'abord 
s’assurer que la ligne d'écran sur laquelle on écrit est vierge ou 
effacer les caractères parasites par la pression simultanée de CTRL 
E avant ENTER. 


m Ce n’est que par une pratique de cet éditeur que vous pourrez en 
comprendre toutes les finesses, Entrafnez-vous ! 
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CHAPITRE IV 
Instructions générales 


EXPRESSION D'UNE VARIABLE 


Un ordinateur est fait pour traiter de l'information, mais celle-ci 
doit lui parvenir. Il existe divers moyens de la lui communiquer : 


- à partir d’un programme 

- à partir du clavier 

- à partir de mémoires extérieures (mémoires de masse 
comme les cassettes, les disquettes,...) 


Ces informations doivent étre stockées dans la mémoire de la 
machine. Nous pouvons nous imaginer qu’un ordinateur est composé 
d’une multitude de tiroirs et que chaque information est entreposée 
dans un tiroir. Pour s’y retrouver, la machine, comme nous, doit 
savoir où se trouve l'information. Pour cela une étiquette est 
apposée sur chaque tiroir et elle doit répondre à certains critères 
pour être comprise par l'ordinateur. 


L’étiquette comporte trois informations : 


Toujours une lettre. 
Facultatif soit un chiffre, soit une lettre. 
Caractère de déclaration. 


Le caractère de déclaration précise le type de variable qui 
sera introduit dans la mémoire. 


% nombre entier (de -32768 à 32767) 
Ex. : ÀA%, B4% 
Valeurs : -390, 1235, 5991 


! simple précision (6 chiffres significatifs) 
Ex : A!, BG! 
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double précision (14 chiffres significatifs) 
Ex : AB#, Ch 


alphanumérique (255 caractères) 
Ex : AS, TX, NOM 


REMARQUES : 


Un même nom peut être utilisé pour désigner des variables 
de types différents, c'est par le dernier caractère que 
l'ordinateur les distinguera. 


Par exemple A, A%, A! et A sont des étiquettes (des noms de 
variables) différentes et l'ordinateur les distinguera. 


Si vous n’'indiquez aucun caractère de définition, le contenu 
de la variable sera considéré comme étant un nombre exprimé en 
double précision. 


L’étiquette peut comporter autant de lettres que vous le 
souhaitez mais cette machine ne tient compte que des deux 
premiers caractères. 

Par exemple, MO, MOYEN, MODE, MODELE, MOYENNE, ne représentent 
qu’une et une seule variable : MO. 


Un conseil : choisissez les deux premières lettres du mot 
français désignant la variable introduite comme étiquette. 
Par exemple, pour "moyenne" vous choisirez MO ou MY, c’est à 
vous de décider de l’abréviation dont vous vous souviendrez le 
plus facilement. 


Vous pouvez exprimer les nombres sous des formes très diverses. 
Par exemple : 


456.78 s’écrira 
45678 E-2 
4.5678 E2 
mantisse puissance de 19 


Cette notation, bien que facile pour des utilisateurs 
expérimentés, est rare dans les programmes de gestion, elle est 
inutilisable pour imprimer des factures. 


Vous pouvez dès le début d’un programme assigner un rôle 
précis à certains noms de variables. 


DEFINT A,B,D-J Définir comme entier A, B et de D à J 


L 


Les variables dont le nom commence par la lettre 
précisée seront considérées comme entières sauf si 
un caractère de déclaration en modifie le type. 

Le temps de calcul est diminué et il y a une 
économie de place dans la mémoire. 


Le guide du SPECTRAVIDEO / 45 


DEFINT I-K définit comme entières les variables 
dont le nom commence par I, J ou K. 


DEFSNG A,B,C-F Définir en simple précision 
Les variables dont la première lettre est précisée 
seront considérées comme des variables simple 
précision. 

DEFDBL A,B,C-F Définir en double précision 


Les variables ainsi précisées seront considérées 
comme étant exprimées en double précision. 


DEFSTR A,B,C-F Définir comme chaîne 


Les variables ainsi précisées seront considérées 
comme étant alphanumériques. 


Exemple : DEFSTR N 
et N contiendra "BONJOUR" 
NO contiendra "NUMERO" 


11 n’est pas nécessaire d’indiquer le caractère de 


déclaration, l'ordinateur sait de quoi il s’agit. 


INSTRUCTIONS 


Aftfrfectat ions 


= Affecter une variable signifie lui attribuer 
une valeur. Le symbole d’affectation est =. I1 
n’est nullement question d’égalité dans une 
affectation: 


A = 3 signifie affecter 3 à la variable A. 

B = 3 *X A signifie multiplier le contenu de la 
variable À par 3 et affecter le produit à B 

X = X + 3 signifie prendre le contenu de 1a 


variable X, lui ajouter 3 et placer cette somme 
dans la variable *X. 
Cela revient donc à augmenter le contenu de X de 3. 


La variable "cible" (celle qui va être modifiée) 
doit toujours être placée à gauche du signe =. 

La "source" (ce qu’il faudra y mettre) sera par 
contre placée à droite. 

L'écriture "A=B" signifie donc prendre le contenu 
de Bet l’affecter, le placer dans A; la variable 
B n'étant pas modifiée. 
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LET 


SWAP 


L’instruction LET peut étre utilisée 
conjointement à l'instruction d’affectation "=". 
Elle doit étre placée en préfixe de la variable 
"cible", à gauche du "=". 

Elle n'offre aucune fonction supplémentaire par 
rapport au "=", si ce n’est la lisibilité du 
programme. 

Les deux programmes ci-dessous sont identiques: 


19 A = 19 19 LET À = 19 

29 B = A + 19 29 LET B = A + 19 

39 PRINT B 39 PRINT B 

49 B=BXS+B+A 49 LETB=BXxS5+B#+A 
99 PRINT B 99 PRINTB 


L’instruction LET est donc facultative. 


SWAP varl,var2 échange les contenus des 

variables vari et var2: le contenu de varil est 
affecté à var2 et le contenu de var2 est affecté 
à vari. vari et var2 peuvent être numériques ou 
alphanumériques, mais de même type. 

Exemple: Permuter les contenus des variables A et 
B (contenant au départ 19 et 29) et des variables 
*+$ et Y$ (contenant "abc" et "def"). 


19 À = 19 : B = 29 
29 XF = "abc" : Y$ = "def" 
38 PRINT À : PRINT B 

49 PRINT X$ : PRINT YS$ 

59 SWAP A,B 

69 SWAP XS5,YS 

79 GOTO 39 


Vous pouvez interrompre le défilement du programme 
par la pression de la touche STOP, et le reprendre 
par la même touche. Pour arrêter le programme, 
appuyez simultanément CTRL STOP. 


Séparateur. d'instructions 


Une ligne de programme peut contenir plusieurs 
instructions (maximum 255 caractères), pour autant 
qu’elles soient séparées par le symbole ":". Les 
deux programmes ci-dessous sont équivalents, à la 
disposition près: 


REMARQUE : 


REM 


(apostrophe) 
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19 A = 19 198 A=19 : B=2+XA 
29 B=2+%XA : C=B+X3+A 

359 C=B+X3#+A : PRINT C 

49 PRINT C 


L’instruction REM permet d'insérer des 
remarques, des commentaires dans le programme. 
Bien qu’apparemment superflus, ces commentaires 
facilitent beaucoup la mise au point et la 
correction. Tous les caractères suivant cette 
instruction ne sont donc pas interprétés, et ce, 
jusqu’à la fin de la ligne. 


19 REM debut du programme 

29 PRINT "bonjour" 

39 REM milieu du programme 

49 PRINT "comment ça va 7?" 

59 REM fin du programme 

69 PRINT "au revoir" : REM c'est fini 


Si l’instruction REM est une instruction "blanche", 
elle prend néanmoins de la place en mémoire, ainsi 
que les caractères qui lui sont associés. 


Cette instruction est identique à REM, mais 

elle prend plus de place en mémoire (1 octet pour 
REM, 3 octets pour’). Elle ne nécessite pas de 
séparateur (:) lorsqu'elle est placée derrière une 
instruction. 


19 

29 ? ceci est un exemple 

39 ? 

49 À = 19 ” on affecte 19 a A 

59 PRINT A'on imprime le contenu de À 

69 À = À + 39 : PRINT À *’ on incrémente 
A de 39 et on affiche son contenu 

78 ? 

89 ? fin du programme 

9Q ? 


Fin d'un programme 


Un programme peut être interrompu de trois façons distinctes: 
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- La pression de la touche STOP OU CTRL STOP 
—- L'’exécution des instructions STOP ou END 


- La détection 


d’une erreur 


STOP et CTRL STOP (touche) 


CONT 


END 


La pression de la touche STOP interrompt le 
déroulementdu programme. Une nouvelle pression sur 
cette touche le réactive. 

La pression simultanée de CTRL et STOP interrompt le 
programme, affiche le message "Break in ..." (numéro 
de la ligne où l’interruption s’est produite) et rend 
les commandes à l’utilisateur. On peut malgré tout 
poursuivre l'exécution en entrant la commande CONT 
(continue), Le programme redémarre à l’endroit où il 
avait été interrompu. 


Arrête le programme lors de l'exécution de cette 
instruction. Lorsqu'elle est omise, la fin d'exécution 
est la fin physique du programme. 


19 A 19 

2% A= AXKA+S 
39 PRINT A 

49 END 


La ligne 49, dans ce cas-ci, n’est pas obligatoire 
puisque l'instruction END coïncide avec la fin 
physique du programme. 


STOP (instruction) 


Interruption à 


L’instruction STOP est similaire à END. Lors de son 
exécution, l'ordinateur arrête le programme en 
affichant le message "Break in ...", 

La suite du programme (si elle existe) peut étre 
effectuée par la commande CONT. 


19 A = 35 L 19 A =35 

29 PRINT A 29 PRINT A 

39 STOP 39 END 

49 PRINT 2 + A 49 PRINT 2 + À 


Ces deux programmes seront interrompus à la ligne 39 
après avoir affiché S (et le message "Break in 39" 
pour le premier). Pour effectuer la suite, introduisez 
la commande CONT. 


la suite d’une erreur 
Si une erreur est détectée à l'exécution, le programme 
est immédiatement interrompu et un message mentionnant 
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le type d'erreur est affiché. On peut toutefois se 
protéger de ces interruptions par l'instruction 
ON ERROR GOTO (voir plus loin dans ce chapitre). 


Gestion d'ecran 


SCREEN ni <,;n2>Cette instruction permet de sélectionner le type 
d’écran que vous désirez. 


SCREEN © sélectionne la page texte (24 lignes de 39 ou 
49 caractères (WIDTH 39 ou WIDTH 4@). 


SCREEN 9 , 1 efface l'écran et donne la page texte 
avec la dernière ligne rappelant les touches de 
fonction (23 lignes accessibles). 


SCREEN , 1 idem, mais n’efface pas l’écran. 


SCREEN @ , 9 efface l'écran et donne la page texte sans 
la ligne rappelant les touches de fonction (24 lignes 
accessibles). 


SCREEN , © idem, mais n’efface pas l'écran. 


SCREEN 1 passe en mode haute résolution (256 points sur 
192). 


SCREEN 2 passe en mode basse résolution (64 points 
sur 48), 


Ces deux dernières instructions seront développées 
dans le chapitre relatif au graphisme. 


CLS Efface l'écran, quel que soit le mode choisi. 


COLOR ni <,n2} Détermine la couleur des caractères (nl) et du 
fond (n2). Lors de la modification d’un de ces deux 
paramètres, toute la page est modifiée. 
Les codes des couleurs sont repris dans le chapitre 3. 


Voici un programme de démonstration faisant varier les 
couleurs du texte (lignes 39 à 79) en gardant le fond 

de la même couleur (bleu foncé), et faisant varier 

les couleurs du fond (lignes 199 à 149) en gardant la 

même pour le texte (blanc). 


En français 


programme DEMO 
variables: Texte, Arrière, Attente : numériques 
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LOCATE x,y<,c> 


début 

effacer l'écran 

afficher "variations des caractères" 

pour Texte variant de 9 à 15 faire 

début 
couleur du texte: Texte, couleur du fond: 4 
afficher Texte 
temporisation 

fin 


afficher "variation de l'arrière-plan" 
pour Arrière variant de 9 à 15 faire 
début 


couleur du texte: 15, couleur du fond: Arrière 


afficher Arrière 
temporisation 
fin 
couleur du texte: 15, couleur du fond: 4 
fin. 


E n B as i c 
19 CLS 


29 PRINT "variation des caractères" 
39 FOR TEXTE = 9 TO 15 


49 COLOR TEXTE, 4 

959 PRINT TEXTE; 

69 FOR ATTENTE=1 TO 1966: NEXT ATTENTE 
79 NEXT TEXTE 

89 PRINT 


98 PRINT "variation de l'arrière-plan” 
199 FOR ARR = 9 TO 15 


119 COLOR 15,ARR 
129 PRINT ARR; 
139 FOR ATTENTE=1 TO 19@9:NEXT ATTENTE 


149 NEXT ARR 
159 COLOR 15,4 


Var iantes 


COLOR n spécifie la couleur du texte sans modifier 


celle du fond. 


COLOR ,n spécifie la couleur du fond, sans modifier 


celle du texte. 


Un troisième argument peut étre ajouté à 


l'instruction COLOR: elle détermine la couleur des 
bords de l'écran en mode graphique. Voir chapitre 


relatif au graphisme. 


Détermine la position sur l'écran du premier 
caractère à afficher. 
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L’adressage à l'écran se fait par le principe de 
coordonnées: la ligne supérieure portant le numéro 9, 
l’inférieure le numéro 23; la colonne de gauche portant 
le numéro 9, celle de droite le numéro 39. On est donc 
face à un écran de 49 colonnes sur 24 lignes. 


LOCATE 3,2 signifie que le prochain affichage se fera 
à partir de la colonne numéro 3 (la quatrième) et de 
la ligne 2 (la troisième). 


Essayez: 


CLS : LOCATE 19,5 : PRINT "ABC" : LOCATE 27,15 : 
PRINT "DEF" 


L’argument x doit être compris entre 9 et 255. S'il 
est supérieur à 38 ou 39, il est considéré comme étant 
égal à 38 ou 397 (suivant WIDTH 39 ou 4@). S'il est 
inférieur à 9 ou supérieur à 255, le message "Illlegal 
function call" est affiché. 


L’argument y doit être compris entre 9 et 255. S'il 
est supérieur à 22 ou 23, il est considéré comme étant 
égal à 22 ou 23 (suivant SCREEN,1 ou SCREEN,9). 


L’argument c permet de faire disparaftre ou 
apparaître le curseur. Si c est positif (inférieur 
ou égal à 255) et non nul, le curseur apparaîtra 
sur l’écran. Par contre, s’il est nul, le curseur 
n'est plus affiché. 


LOCATE 5,4,1 place le curseur au point de coordonnées 
(5,4) et l'affiche. 


LOCATE 5,4,9 place le curseur au point de coordonnées 
(5,4), mais ne l'affiche pas. 


Une forme telle que LOCATE,,9 est acceptée: elle fait 
disparaftre le curseur en le laissant à l’endroit où 
il se trouvait. 


Ce troisième argument provoque une erreur de syntaxe 
en mode graphique (SCREENI ou SCREEN2). Il ne peut donc 
être mentionné dans ce mode. 


PRINT ou ? PRINT est l'instruction qui permet l'affichage 
sur l'écran. 


PRINT variable affiche le contenu de la variable sur 
l'écran. 
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PRINT nombre affiche le nombre. 


PRINT "chaîne" affiche une chaîne de caractères, 
Cette instruction peut aussi s’écrire ? (point 
d’interrogation). Si vous utilisez cette syntaxe pour 
rédiger vos programmes, l’ordinateur les réécrira en 
PRINT. 


REMARQUE 
Lorsqu'un nombre positif est affiché par l'instruction 


PRINT, il est toujours précédé d’un espace (qui 
correspond en fait au signe + qui n’est pas affiché). 


3 (point-virgule) 


> (virgule) 


TAB(n) 


Signale à la machine que le prochain affichage devra 
se faire immédiatement derrière celui qui vient 
d'être effectué. 


19 PRINT "ARC" 
29 PRINT "DEF" 
39 PRINT "ABC"; 
49 PRINT "DEF" 


19 PRINT "ABC" : PRINT "DEF" 
29 PRINT “ABC";"DEF" 


Les chaînes de caractères peuvent être remplacées 
par des nombres ou des variables. 


La virgule, associée à une instruction PRINT permet 
d’afficher des nombres ou des chaînes de caractères 
tabulées de 16 en 16 positions. 


19 PRINT "ABC" 19 PRINT "ABC" : PRINT "DEF" 
28 PRINT "DEF" : PRINT "XYZ" 

39 PRINT "XYZ" 29 PRINT "ABC","DEF","XYZz" 
49 PRINT "ABC", 

59 PRINT "DEF", 

69 PRINT "XYZ" 


Associée à PRINT, TAB permet d’afficher un nombre ou 
une chaîne de caractères avec une tabulation bien 
précise. 


PRINT TAB(19); "hello" provoquera l'affichage du message 
à partir de la dixième colonne. 

PRINT TAB(19) 5; "hello"; TAB(2@);"à tous"; TAB(69); "et à 
toutes" affichera les trois messages respectivement 

à partir de la 19%me, Dgeme st 
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éfgeme colonne (une ligne complète plus 29 
caractères). 


L’argument n doit être compris entre 9 et 255, sinon 
le message "lllegal function call" est affiché. 


SPC(n) Associée à l'instruction PRINT, SPC permet de donner 
une tabulation relative à partir du dernier caractère 
affiché (ou, par défaut, à partir du début de la ligne). 


PRINT SPC(19); "hello"; SPC(28)5;"à tous" affichera le 
message "hello" à partir du 19%" caractère, 

et le message "à tous", 29 caractères après (soit, à 
la position 35: 19+5+2@). 

L’'argument n doit être compris entre 9 et 255. 


PRINT USING Cette instruction permet d'afficher un nombre ou 
une chatne de caractères dans un format déterminé. 


PRINT USING numérique 


# Le symbole # qui lui est associé réserve une 
position pour chaque chiffre avant ou après le point 
décimal et le signe. Les nombres seront alignés sur le 
point décimal. Les parties décimales comprendront 
autant de chiffres que spécifiés et seront 
éventuellement arrondies. 


19 À = 19 19 A = "HHH.HH" 

29 B = 12.5 29 A 19 

39 C = 123.456 359 B = 12.5 

49 D = -1.234 49 C = 125.456 

99 PRINT USING "#H#Hh#.H#H#"3:A 959 D = -1.234 

69 PRINT USING "#H##.H#";B 69 PRINT USING A;A 
79 PRINT USING "#HHH#.HH#"3;C 78 PRINT USING A$;B 
89 PRINT USING "##H#.Hh"5D 89 PRINT USING A$;C 


99 PRINT USING A;D 


L’exécution d’un de ces deux programmes provoquera 
l'affichage de: 


19.09 
12.59 
1253.46 
-1.23 


Si vous modifiez la ligne 39 du premier programme par: 


39 C = -123.456 


vous obtiendrez à l'exécution: 


19.9 

12.59 
%-1235.46 

-1.23 


Le symbole % se trouvant devant -123.46 signifie que 

le nombre a été imprimé “hors format": on avait prévu 
3 symboles avant le point décimal et on en obtient 4 

(3 chiffres et le signe -). 


La virgule, précédée de # et placée avant le point 
décimal (s’il s’y trouve) dans une déclaration de 
PRINT USING numérique, fait afficher une virgule tous 
les trois chiffres de la partie entière, en commençant 


par la droite. Pour les anglo-saxons, la virgule 
correspond à notre ancien point décimal. 


3:988 correspond à 3.009 
PRINT USING "H,HHHHHHHHH "5: 1723456789 
PRINT USING "HHHHHH,HHHH"5; 1123456789 
PRINT USING "HHHHHHHHHH, "5123456789 


afficheront tous les trois: 125,456,789 


En insérant le caractère + dans la définition du 
PRINT USING, on impose l'affichage du signe du nombre 
(+ ou -) en début ou en fin de celui-ci. 


PRINT USING "+H#H##.HH" réserve 4 positions (celle du 
signe comprise) pour la partie entière et affichera 
chaque nombre précédé de son signe. 

PRINT USING "###.H#HH#+t" réserve 3 positions (sans tenir 
compte du signe) pour la partie entière. Chaque nombre 


sera suivi par son signe. 


Dans le second programme ci-dessus, remplacez la ligne 
19 par: 


19 AG = "+HHHOHH" 


puis par: 


19 AE = "HHHHHT" 
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Comparez les résultats. 


= L'opérateur -, placé en dernier lieu dans une 
déclaration de PRINT USING, fait afficher le 
symbole - derrière le nombre (s’il est négatif). 


Remplacez dans le programme précédent la ligne 19 par: 


19 AP = "HHHOHH-" 


A l'exécution, on obtient: 


19.06 

12.59 

123.56 
1.23- 


SARA 


L'opérateur 771% fait afficher un nombre en notation 
scientifique. Cet opérateur doit être placé derrière 
les #. L’exposant de 19 est toujours affiché sous 1a 
forme Etnn ou E-nn. Il peut être combiné aux 
opérateurs + ou -, 


PRINT USING "#H##®°77" réserve 3 positions pour la 
mantisse, signe compris, soit 2 chiffres. 


PRINT USING "##H.##H#777" réserve 2 positions pour la 
partie entière de la mantisse (signe compris) et 3 


positions pour la partie fractionnaire de la mantisse. 


Dans le programme remplacez la ligne 19 par: 


19 A = "HHHOHHITIS EN 


A l’exécution, on obtient: 


199.@@E-@G1+ soit 190.08 X 197%: 
125.9@E-@1+ soit 125.99 % 1@®: 
123.46E+9@+ soit 123.46 + 19°® 
123.4@E-92- soit -123.49 x19 -®2 


La double astérisque provoque le remplissage par 

des astérisques de toutes les positions inemployées à 
gauche du point décimal. 

Dans le programme, en remplaçant la ligne 19 par: 


19 A = "XHHH.HH" 


on obtiendra à l'exécution: 


*K10.08 
*Kk12.59 
*123.46 
Xkx-1.23 


PRINT USING "XX*##.##" signifie réserver 2 positions 
pour la partie décimale, et 4 pour la partie entière. 
Cette dernière sera complétée par des * si elle en 
comporte moins. 


Le double symbole dollar provoque, dans un PRINT 
USING, l’affichage de ce symbole devant chaque nombre. 


Dans le programme, en remplaçant la ligne 19 par: 


19 AB = "EHFHH.HH" 


on obtient: 


+519.09 
512.59 
5123.46 
-61.23 


PRINT USING "FSF#h##.hHH" signifie réserver deux caractères 
pour la partie décimale, et trois caractères pour la 
partie entière. Celle-ci sera précédée du symbole %. 


Le double astérisque suivi du symbole dollar permet 
de combiner les deux opérateurs précédents. 


PRINT USING "XXFH#H.HH#" signifie réserver deux positions 
pour la partie décimale, 4 positions pour la partie 
entière (X**+HH#). Cette dernière sera précédée du symbole 


$ et les positions inoccupées seront remplies 
d’'astérisques. 
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PRINT USING alphanumérique 


: Associé au PRINT USING, le point d’exclamation 
provoque l'impression du premier caractère d’une 
chaîne. 


PRINT USING "!'";"Spectravideo" affichera la lettre S. 


169 AFS “essai de print using" 
29 B$ = "pour le SV-318" 

39 US = "!" 

49 PRINT USING USF; A 


Ce programme affichera le premier caractère de la 
chatne contenue dans AS: la lettre e. 
En modifiant la ligne 49 par: 


49 PRINT USING US: A; B# 


L’exécution provoquera l'affichage des premiers 
caractères des chafnes contenues dans A#% et B#: 
les lettres ep. 


Si la ligne 49 est: 
49 PRINT USING US; AS; : PRINT B#& 
on obtiendra: 


epour le SV-318 


\espaces| Définit le nombre de caractères alphanumériques 
à afficher. Ce nombre est déterminé par la quantité 
de caractères "espace" (space) insérés entre les deux 
signes, augmentée de 2. 


PRINT USING "\ \"s"chaînes de caractères" affichera 
le mot "chaîne"! il y a, en effet, 3 espaces donc 5 
caractères à afficher. 


PRINT USING "\\vs"chatnes de caractères" affichera 
les lettres "ch": il n’y a aucun espace, donc 2 
caractères à afficher. 


19 A = "essai de print using" 
29 B$ = "pour le SV-318" 
Sauses ss ess 

49 PRINT USING US$; A; BY 


Ce programme affichera les 3 premiers caractères de A% 
(les 2 plus 1 espace), suivis de 4 espaces, suivis 

des 9 premiers caractères de B#% (les 2 plus 7 espaces). 
On obtiendra donc: 


ess pour le S 


REMARQUES : 


Plusieurs opérateurs peuvent se trouver dans une 
définition de PRINT USING. De plus, on peut y inclure 
des caractères constants, comme le montrent les 
exemples ci-dessous. 


19 A "A payer rapidement" 
29 BF = "avant le" 

39 SOMME = 557.25 

49 JOUR = 25 

59 MOIS = 3 

69 AN = 84 


En insérant successivement les lignes 79 et 89 dans ce 
programme, vous obtiendrez les résultats suivants à 
l’exécution: 


Lignes Résultats 
78 US$ = "\ \: FBXX#H##" 
89 PRINT USING US$; A%; SOMME A payer: FB*557 
79 US = "| \: FBxx## | \##" 
89 PRINT USING US$; A$; SOMME; B#3; JOUR A payer: FBX557 
avant le 25 

79 US$ = "| \: FExx##| | x 
x xx" 
89 PRINT USING US$; AS; SOMME; B$; JOUR: MOI | A payer: FB*557 

S; AN avant le 25 X*3 84 
70 US$ = "1 = +H,HHHH.H + HHonnon 
89 PRINT USING US$; A$; SOMMEX-190; ANX19 | À = -55,725.9 + 


8E+92 
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GESTION DUO CLAVIER 


INPUT <'"chatne";> var <,var?> 


L’instruction INPUT interrompt le programme et attend 
que l’on introduise des caractères puis que l’on appuie 
sur la touche ENTER (signifiant: fin de 
l'introduction). Les caractères seront placés dans la 
variable associée à INPUT. 


Cette instruction permet donc de communiquer avec le 
programme et de modifier certains paramètres. 


INPUT AG permet d'introduire une chaîne de caractères 
qui sera affectée à la variable ASF. Vous remarquerez 
qu’un point d'interrogation suivi d’un espace est 
affiché lors de l'exécution de cette instruction. 


INPUT "Quel est votre nom ";N$ affiche le message 
"Quel est votre nom " devant le point d’interrogation 
et attend que l’on introduise une chaîfne. 


INPUT AS,B$ rend possible l'introduction de deux 
chaînes successives. Deux possibilités vous sont 
offertes: vous répondez pour A$, vous tapez ENTER, 
l'affichage présente alors deux points d'interrogation 
vous signalant qu’une information doit encore étre 
introduite dans B$. La seconde possibilité est de 
séparer les deux informations à introduire par une 
virgule avant de taper ENTER. On peut multiplier ainsi 
le nombre de variables à la suite du INPUT. 


INPUT "message"; A$,B$ affiche "message" devant le 
premier "?", Les variables peuvent être de type 
numérique. 

Le message d'erreur "Redo from start" est affiché si 
vous tentez d'insérer des caractères d’un autre type 
dans cette Variable; la demande est alors renouvelée. 
Attention, le cas inverse (attendre une information 
alphanumérique et introduire un "nombre") n'’'entraîfne 
aucune erreur. En effet, le Basic a "traduit" en 
chiffres! 


Remarque: les chaînes de caractères introduites ne 
peuvent comporter de virgule, celle-ci agissant comme 
séparateur. 


Exemple : 


19 INPUT "Messagel ";:M1%$ 
29 INPUT "Message2 ";"m2$ 
359 PRINT M1$,M2$ 

49 END 


RUN 


Messagel ? bonjour ,monsieur 
?Extra ignored 

Message? ? madame 

bonjour madame 


Comme vous le constatez, "monsieur" n’est pas pris en 
compte. 


LINE INPUT <'"chaîtne"3;}> var 


INKEYS 


Cette instruction est une Variante de INPUT: elle 
permet d’introduire, en cours de programme, des 
caractères dans la variable associée. Seul le retour 
chariot (ENTER) est considéré comme séparateur. 


Exemple : 

19 LINE INPUT "Message ";A% 
29 PRINT AS 

39 END 

RUN 


Message essai avec ponctuation,35.: 
essai avec ponctuation,3s.: 


Vous constaterez que, contrairement à INPUT, la 
ponctuation est acceptée et que le point 
d’interrogation n’est pas affiché. 


La variable ne peut étre qu’alphanumérique. 


Cette instruction n'accepte qu’une seule variable. 


Permet de détecter la pression d’une touche du 
clavier sans interrompre le déroulement du programme. 


Cette instruction est développée dans le chapitre 
concernant les variables alphanumériques. 


Iteéerat ions boucles) 


Une boucle (ou itération) est une répétition d’? 
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une série 


d'instructions. Pour qu’une boucle soit efficace, elle doit comporter 
une fin, c'est-à-dire, qu’il doit être possible de la quitter. 


19 A = A + 1 
29 PRINT À 
39 GOTO 19 


Le programme illustre une boucle sans fin. En effet, pour 
l’interrompre, il faudra utiliser les touches CTRL STOP. 


Pour rappel, il n'existe en programmation que deux types de boucles: 


tant que CONDITION faire 
début 
INSTRUCTIONS1 
fin 
INSTRUCTIONS2 


Malheureusement, aucune de ces deux structures 
Basic propre au SPECTRAVIDEC. 


11 existe pourtant une variante à la structure 


pour ,.,,. variant de ,.. à ... par 


FOR var = expi TO exp2 <STEP n> 


répéter 

INSTRUCTIONS1 
jusqu’à ce que CONDITION 
INSTRUCTIONS2 


ne se retrouve dans le 


TANT QUE.,..: 


pas de ... 


NEXT <var > FOR À = 1 TO 19 STEP 2 pourrait se traduire par: 
pour À variant de 1 à 19 par pas de 2, faire... 


NEXT À délimite la fin de la boucle FOR. De plus, il 
incrémente la variable A (numérique!) du pas indiqué 
(2 dans ce cas-ci), et vérifie si la condition initiale 


est toujours respectée, Dans ce 


cas, les instructions 


situées entre FOR... et NEXT sont à nouveau exécutées, 
sinon, la suite du pogramme (après NEXT) est effectuée. 


Faire afficher les multiples positifs de 3 inférieurs 


à 199 se conçoit aisément: 


En français 


programme MULTIPLE DE 3 
variable: Multiple : numérique 


début 
pour Multiple variant de @ à 199 par pas de 3 faire 
début 
afficher Multiple 
fin (fin de pour...) 
afficher "C'est fini." 
fin. 


En B a s i c 


19 CLS 

29 FOR MUL = 9 TO 199 STEP 3 
34 PRINT MUL 

49 NEXT MUL 

99 PRINT "C’est fini” 


La dernière valeur affichée est 99. En effet,, la 
variable MUL aura été affectée de: 9, 3, 6, 9D,..., 99, 
Lorsque ce dernier a été affiché, MUL a été incrémenté 
de 3 (par NEXT MUL). Il contenait alors 192, ce qui 
dépasse la valeur limite indiquée (19@). 


Lorsque le pas d’incrémentation (STEP...) n'est pas 
précisé, il est considéré comme égal à 1. 


L’instruction: 
FOR I = 1 TO 199 

est donc équivalente à: 
FOR I = 1 TO 199 STEP 1 


Il n’est pas indispensable de préciser le nom de la 
variable après l'instruction NEXT: l'ordinateur se 
réfère alors à celle correspondant au dernier FOR 


rencontré. Dans le programme Basic ci-dessus, on pouvait 


donc remplacer la ligne 49 par: 


49 NEXT 


Cela permet de gagner de la place en mémoire, mais on 
y perd en clarté! 


Plusieurs boucles "FOR" peuvent étre imbriquées. 

Mais, pour ne pas obtenir de message d'erreur (et donc 
d’interruption du programme), il s’agit de les 
"construire" de telle manière qu'elles soient 
emboftées l’une dans l’autre. 
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19 FOR À = 1 TO 29 19 FOR À = 1 TO 29 
29 FOR B = 1 TO 19 2@FOR B = 1 TO 19 
39 PRINT A,B 39 PRINT A,B 

49 NEXT B 49 NEXT A 

99 NEXT A 99 NEXT B 


Le programme de gauche affiche les couples de nombres: 
(1,1) (1,2), (i,3dsce.s (1,15)5..:3 (29:15). 


Le programme de droite affiche les couples: 

(1,1), (2,1), (3,1), (4,1),..., (29,1) 

Il est ensuite interrompu et le message "NEXT whithout 
FOR in 59" est affiché, signifiant qu’il a rencontré 
l'instruction NEXT sans avoir rencontré de "FOR..." 


Bien que cela paraisse étonnant, l'instruction 

"FOR B =..." a été oubliée lors de l'exécution de 
“"NEXT A". Lorsque la variable À est supérieure à 29, 
la ligne S9 (NEXT B) est effectuée, et cet "oubli" 
provoque le message d'erreur. 


Techniquement, le numéro des lignes contenant "FOR..." 
est rangé dans une pile, suivant le principe LIFO 
(Last In First Out). Schématiquement, on peut décrire 
ce principe de manière suivante: 


Lorsque la ligne 19 est rencontrée, son numéro est 
rangé dans la pile. Elle ne contient donc que 19. 
La ligne 29 étant effectuée, son numéro est également 
rangé dans la pile, AU-DESSUS du 19. Elle contient: 

29 --->B 

14 ---3>A 
Quand la ligne 49 (NEXT A) est effectuée, l'ordinateur 
recherche le numéro de la ligne correspondant au 
"FOR À =...,."353 il la trouve en deuxième position dans 
la pile, et pour l’en sortir, il doit également enlever 
le numéro de la ligne correspondant à "FOR B =...", 
Cette pile ne contient donc plus que le nombre 19. 
I1 en sera ôté lorsque la variable À dépassera la limite 
fixée. 
A ce moment, le micro-processeur effectuera la ligne 69 
qui ira chercher la ligne comprenant "FOR =..,.", 
Ne trouvant pas l'information, il fera afficher un 
message d'erreur. 


En réalité, ce n’est pas les numéros de ligne que le 


micro-processeur stocke en pile, mais bien les adresses 
en mémoire. 


Dans des "FOR..." emboîftés, si les "NEXT'" ne sont pas 


suivis de noms de variables, l’ordinateur les interprète 
en se référant au dernier "FOR" rencontré, puis à 
l’avant dernier,..., jusqu’au premier, en respectant le 
principe LIFO. 


Pour éviter ce genre de problème, il est conseillé de 
décaler les instructions situées entre le début et la 
fin de la boucle. C'est ainsi que le programme correct 
s’écrirait: 


19 FOR À = 1 TO 29 


29 FOR B = 1 TO 16 
36 PRINT A,B 
49 NEXT B 

99 NEXT A 


11 n’est pas possible d'écrire le second sous cette 
forme! 


Rupture de séquence 


GOTO no de ligne 
GOTO force l’interpréteur à "se rendre" à une ligne du 
programme dont le numéro est spécifié. 


19 X = @ 

29 X = X + 1 
39 PRINT X 
49 GOTO 29 


Pour interrompre l'exécution de ce programme, poussez 
simultanément CTRL STOP. 


Une utilisation abusive de cette instruction nuit à la 
clarté du programme. Elle ne devrait être utilisée 
que pour simuler les instructions inexistantes dans 

ce BASIC : 


répéter ..,.. jusqu’à ce que (REPEAT ... UNTIL) 
et 
tant que ... faire (WHILE ... WEND) 


GOSUB no de ligne 
GOSUB provoque un branchement d’une partie du 
programme vers un sous-programme (sous-routine ou 
procédure). L’instruction RETURN doit le terminer, et 
provoque un retour à l'instruction suivant GOSUB. 
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19 À = 1 

29 GOSUB 199 
39 À = -14 
49 GOSUR 169 
59 À = 96 

64 GOSURB 199 
74 À = 12.5 
89 GOSUB 169 
99 END 


199 PRINT "le nombre A est ";A 
119 RETURN 


Ce programme affichera : 


le nombre À est 1 

le nombre A est -14 
le nombre À est 99 
le nombre À est 12.5 


De même que pour GOTO, le numéro de ligne doit être 
impérativement un nombre. Il ne peut étre une 
expression (GOSUB 19+5 est considéré comme GOSUB 19) 
ou une variable (GOSUB À provoque une erreur de 
syntaxe). 


RETURN no de ligne 


RETURN indique la fin d’un sous-programme, et son 
exécution provoque le retour à l’instruction suivant 
GOSUB. Néanmoins, si RETURN est suivi d’un numéro de 
ligne, le "retour" se fera à celle-ci. 


S CLS 

19 À = 1 

29 GOSUE 109 
39 À = -14 
48 GOSUR 199 
99 A = 99 

69 GOSUB 199 
79 À = 12.5 
89 GOSUR 199 
99 END 


198 PRINT "le nombre À est ";A 
119 RETURN 5 


Ce programme fera clignoter le message "le nombre A 
est 1". En effet, la sous-routine 199 provoquera un 
retour à la ligne S, l'écran sera effacé, À prendra 
la valeur 1, et ... 

le programme repart pour la sous-routine 169. 

Les instructions comprises entre 39 et 99 ne seront 


donc jamais exécutées (pour vous en rendre compte, 
utilisez la commande TRON). 


Si RETURN est rencontré sans avoir été appelé par un 
GOSUB, le message "RETURN without GOSUB" est affiché. 


IF cond. THEN instr. 1 <ELSE instr. 2} 
IF THEN ELSE est une instruction qui permet une prise 
de décision après une comparaison : si la condition 
est vraie (différente de zéro), l'ordinateur effectue 
les instructions "instr. 1" puis passe à la ligne 
suivante; sinon, il effectue les instructions "instr2" 
et passe à la ligne suivante. Si ELSE est omis, 
l’interpréteur passe à la ligne suivante si la 
condition n'est pas remplie. 


19 A =5 

29 B = 3 

39 IF À = 5 THEN PRINT "A égal 5" ELSE 
PRINT "A est différent de 5" 

49 IF À = B THEN PRINT "A égal B" 

99 PRINT "fin des comparaisons” 


Ce programme provoquera l'affichage de: 
A égal 5 

fin des comparaisons 

En remplaçant la ligne 19 par: 

19 À = 3 

On obtient: 

A est différent de 5 


A égal B 
fin des comparaisons 


Le programme: 


19 AG "SVv-318" 
29 BF = "SV-993" 
39 IF ABS = "SV-318" THEN PRINT "c'est un Spectravideo" 
49 IF B$ "SV-993" THEN PRINT "c'est un lecteur 
de cassettes" ELSE PRINT "je ne connais pas cet 
appareil” 


fera afficher: 


c’est un Spectravideo 
c'est un lecteur de cassettes 
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Programme de recherche du PGCD (plus grand commun 
diviseur de deux nombres). 


E n français 


programme PGCD 
variable A4,B,M,N,R: numériques 


début 
affecter à A et à B les nombres à calculer 
M <-- À 
N <-- B 
répéter 
R <-- reste de la division de M par N 
permuter les contenus de M et N 
permuter les contenus de N et R 
jusqu’à ce que N = 9 (N est devenu le dernier reste) 
afficher "Le PGCD de" À "et" B "est" M 
{M est le dernier 
diviseur) 


fin. 

E n Bas i c 

19 À = 12325 

29 B = 8725 

39 M = A 

49 N = BE 

59 R = M MOD N ’reste de la division de 
M par N 


69 SWAP M,N : SWAP N,R 

79 IF N <> @ THEN GOTO 59 ? si M est no 
n nul, se brancher en 59 

88 PRINT"'Le PGCD de";A;"et";B;"est";m 


Modifiez les lignes 19 et 29 pour d’autres calculs ou 
remplacez-les par des INPUT. 


Si l’instruction qui suit THEN est GOTO (c'est le cas 


dans le programme précédent) alors on peut en omettre 
une ou deux. La ligne 79 pourrait donc s'’écrire: 


?79 IF N <> @ THEN 59 
ou 


79 IF N <> @ GOTO 59 


Les IF THEN ELSE peuvent être imbriqués comme le 
montre l’exemple ci-dessous: 


si A=B 
alors afficher "A = B" 
sinon faire 
Afficher début 
"A = B" i si À=S 
alors afficher 
Afficher Afficher "A=S et A<>B" 
"A=S et "A<>5 et sinon afficher 
A<>B" A<>B" "A<>5 et A<>B" 


19 A=S5S:B=S 

24 IF À = B THEN PRINT "A = B" ELSE IF 
A = S THEN PRINT "A = 5 et A <> B" ELSE 
PRINT "A <> 5 et A <> B" 


A l'exécution, on obtient: “A = B" 
Si on remplace la ligne 19 par: 


19 A =5:B= 4 


on obtiendra:"A = 5 et A <> B". 
Et enfin, si la ligne 19 est: 


19 A = 3: B = 4 

il s’affichera "A <> 5 et A<>B", ce qui est correct. 
Les IF THEN ELSE imbriqués sont à utiliser avec 
prudence. Lorsque la condition suivant IF est fausse, 


l’interpréteur cherche le premier ELSE, qui n’est pas 
toujours celui à effectuer logiquement. 


ON var GOTO no 
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Les opérateurs logiques permettant de rédiger les 
comparaisons sont: 


La 


égalité 

inégalité 

strictement inférieur 
strictement supérieur 
inférieur ou égal (=<) 
supérieur ou égal (=}) 
ET logique 

OÙ inclusif 

OÙ exclusif 

négation 

équivalence 
implication 


"branche" THEN est effectuée si le résultat de 


l'opération logique n’est pas nul. Dans les autres cas, 
c’est la "branche" ELSE ou la ligne suivante qui est 
exécutée. 


On pourrait donc avoir une ligne de programme du genre: 


IF À THEN .... ELSE ... 


Si À est non nul, effectuer la "branche" THEN. Si A 
est nul, effectuer la "branche" ELSE (ou passer à la 
ligne suivante si elle est omise). 


On peut également affecter le résultat d’une opération 
logique à une variable numérique: 


11 s’agit d’'affecter à la variable A le résultat de 
l'opération logique "=": si C=D, on affecte 1 à A: si 


C<>D, 


*X = 


on lui affecte 9. 


C AND D 


Affecter à X le résultat de l’opération logique "ET": 


si 


C et D sont non nuls, affecter 1 à A; dans les 


autres cas, lui affecter 6. 


ligne <,no ligne> 

Cette instruction est un cas particulier de 
"IF...THEN'". En effet, on pourrait la traduire en 
français par "selon la valeur de var aller à...", 


ON À GOTO 196,299,457,982,125 
est l'équivalent de: 


alors aller en 199 
alors aller en 299 
alors aller en 457 
alors aller en 982 
alors aller en 125 


si 
si 
si 
si 
si 


DDDD>D 
I (] I 
UD UNr 


Si la valeur de A n'est égale à aucune de ces valeurs, 
alors l'instruction est sautée et le programme est 
poursuivi. 


11 n'y a aucune contrainte sur les numéros de lis 
suivant cette instruction, à condition que ces lignes 
existent. 


ON var GOSUB no ligne <,no ligne} 
ON GOSUB est semblable à ON GOTO. Les branchements sont 
effectués à des sous-programmes (voir GOSUB). 


ON KEY GOSUB no ligne <,no ligne} 
Cette déclaration permet un branchement à un 
sous-programme lors de la pression d’une des dix 
touches de fonction ; chaque numéro de ligne 
correspondant successivement à une touche. Le retour 
s'effectue à l'endroit où le programme a été 
interrompu, ou à une ligne de programme précise si 
RETURN est suivi d’un numéro de ligne. 


ON KEY GOSUB 169,159,2609,219,239,259 


signifie : 


si la touche F1 est poussée, effectuer le sous- 
programme se trouvant en 196 


si la touche F2 est poussée, effectuer le sous- 
programme se trouvant en 159 


si la touche Fé est poussée, effectuer le sous- 
programme se trouvant en 259. 


Si une des autres touches est poussée, il n’y a aucun 
branchement. 


Si l’on ne désire un branchement que si l’une des 


touches impaires (F1, FS, FS, F7, F9) est poussée, on 
obtiendra une écriture du genre: 


ON KEY GOSUB 199,,299,,399,,750,,919 
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Quel que soit l’endroit où se trouve le pointeur, 
lorsqu'une de ces touches sera pressée, il y aura 
branchement. La déclaration ne doit être indiquée 
qu’une fois dans le programme, sauf si on désire la 
modifier. 


Cette déclaration doit être validée par l’instruction 
KEY ON. 


Le programme ci-dessous illustre cette fonction. 


5 ’declaration de ON KEY 


6 L 

19 ON KEY GOSUB 199,159,209,,219,,555 9 
11? 

12 ‘validation de ON KEY 

13 ? 

15 KEY ON 

16 ? 

29 GOTO 29 ’ programme principal 
47 ? 

48 ’ sous-programmes 

49 ? 

59 PRINT "F1@": RETURN 

199 PRINT "F1" : RETURN 

159 PRINT "F2" : RETURN 

299 PRINT "F3" : RETURN 

219 PRINT "F5" : RETURN 


Lors de l'exécution de ce programme, il ne se passera 
rien (29 GOTO 29), sauf si vous poussez sur les touches 
F1, F2, F3, FS ou F19. Pour interrompre ce programme, 
tapez CTRL STOP. 


KEY ON - KEY STOP - KEY OFF 
Valide ou interrompt la déclaration de ON KEY GOSUB. 


KEY ON valide ON KEY GOSUB 


KEY STOP interrompt ON KEY GOSUB (il n’y a plus de 
branchement vers les sous-programmes lors de 1la 
pression d’une des touches de fonction). Mais 
l'ordinateur mémorise malgré tout une pression sur 
une de ces touches et effectue le branchement 
lorsqu'il rencontre à nouveau KEY ON. 


KEY OFF est identique à KEY STOP, si ce n’est qu’il ne 
mémorise pas une pression de touche. 


En modifiant le programme ci-dessus, vous comprendrez 
la différence entre ces deux dernières instructions. 
Remplacez les lignes 16 et 17 par: 


70 


16 KEY STOP: FORI=1TO1GS:PRINT I:NEXT 
17 KEY ON 


Lors de l’éxécution de ce programme, les nombres 
compris entre 1 et 199 vont s’afficher. À ce moment, 
poussez sur la touche F1. Il ne se passera rien 
jusqu’au moment où le nombre 199 apparaît, le 
message "Fl" étant affiché à sa suite. 


Recommencez l’exécution, et lors de l’affichage des 
nombres, poussez rapidement sur plusieurs touches de 
fonction. 


Ce phénomène ne se produira pas si vous remplacez 
l'instruction KEY STOP par KEY OFF. 


ON STOP GOSUB no ligne 


Déclare le sous-programme à effectuer lors de la 
pression des touches CTRL STOP. Cette déclaration doit 
être validée par STOP ON, elle peut être 

interrompue par STOP STOP ou STOP OFF. Le retour du 
sous-programme s'effectue à l'endroit où le programme 
a été interrompu. 


Même après cette déclaration, la pression sur la 
seule touche STOP interrompt momentanément le 
programme. 


Le programme ci-dessous affiche les nombres 1, 2, 3... 
Si CTRL STOP est poussé avant la valeur 599, le message 
"stop" est affiché. Par contre, après 399, la pression 
de ces touches provoque l’interruption du programme. 


9 "declaration et validation de ON STOP 


6 L 

19 ON STOP GOSUB 19909 

15 STOP ON 

16 ? 

17 ?’ programme principal 
18 


29 X = X + 1 

39 PRINT X 

49 GOTO 29 

997 ? 

998 ? sous-programme STOP 

999  ? 

1999 IF X<399 THEN PRINT "stop":RETURN 
1919 END 


Attention! La déclaration ON STOP ne permet plus 
l'interruption par CTRL STOP. La seule manière 
d’interrompre le programme est... d’éteindre, ce qui 
provoque la perte de ce dernier. Voilà un excellent 
moyen de protéger un de vos programmes contre 
d'éventuels intrus! 
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STOP ON - STOP STOP - STOP OFF 
Ces instructions valident où interrompent la 
déclaration de ON STOP GOSUB. 


STOP ON valide ON STOP GOSUB. 


STOP STOP ou STOP OFF interrompt la déclaration de 
ON STOP GOSUB (la pression de CTRL STOP arrête le 
programme). 


ON INTERVAL = n GOSUB no ligne 
Les Spectravideo SV-318 et SV-328 possèdent une horloge 
interne. Cette horloge est indépendante de tout 
programme; elle fonctionne constamment, dès la mise 
sous tension de la machine. Il est possible d’y 
accéder directement par la variable TIME qui contient 
le temps écoulé depuis la mise en route (voir chapitre 
consacré au numérique). 


L’horloge provoque aussi une interruption tous les 
ofeme de seconde. Ces interruptions peuvent 
être gérées par ON INTERVAL GOSUB. 


ON INTERVAL = 199 GOSUB 1999 signifie: effectuer le 
sous-programme se trouvant à partir de la ligne 1999 
chaque fois qu’il se sera produit 199 interruptions 

(2 secondes). 


ON INTERVAL = 3986 GOSUB 1809 signifie: effectuer le 
sous-programme se trouvant en 299 chaque fois que 3949 
interruptions se seront produites, c'est-à-dire, 

à chaque minute. 


Le retour du sous-programme s'effectue à l'endroit où 
le programme a été interrompu. La déclaration ON 
INTERVAL doit être accompagnée de l'instruction 
INTERVAL ON qui la valide. 


Réaliser un compteur de secondes est donc très simple: 


19 ON INTERVAL = 59 GOSUB 1999 
29 INTERVAL ON 

34 GOTO 3539 

1998 X = X + 1 

1919 PRINT %X 

1929 RETURN 


La ligne 19 déclare que tous les 59 Sg*re de 

seconde (à chaque seconde) l'ordinateur doit effectuer 
le sous-programme se trouvant en 19993 ce dernier 
incrémente un compteur *X, affiche son contenu et 
retourne au programme principal qui consiste...à ne 
rien faire (39 GOTO 39). 


Faire afficher une horloge devient relativement simple. 


L’algorithme est le suivant: 


programme HORLOGE 
variables: Heure, Minute, Seconde : numériques 


début 
afficher "Quelle heure est-il 7?" 
lire Heure, Minute, Seconde 
à chaque seconde effectuer le sous-programme COMPTER 
répéter 
afficher Heure, Minute, Seconde 
sans fin 


sous-programme COMPTER 
début 
Seconde <-- Seconde + 1 
Si Seconde = 69 
alors 
début 
Seconde <-- g 
Minute <-- Minute + 1 
Si Minute = 69 
alors 
début 
Minute <-- 9 
Heure <-- Heure + 1 
si Heure = 24 alors Heure = g 
fin 
fin 
fin de sous-programme 
fin. 


E n Bas i c 


19 PRINT "Quelle heure est-il 7?" 

29 INPUT "Heure: "5H 

36 INPUT "Minute: ";M 

49 INPUT "Seconde: "3;5S 

959 ON INTERVAL = 59 GOSUB 1999 

69 INTERVAL ON 

79 LOCATE 19,19 

89 PRINT USING "#H#Hh#HmH##Hs";:H,M,S 

9 GOTO 9@ 

1989 ’sous-programme 

1919 ’d’incrementation du temps 

1929 ? 

18359 S = S + 1 

1949 IF S = 69 THEN S = 9 : M = M + 1 : 
IF M = 68 THEN M=@9@:H=H+1:1FH 
= 24 THEN H = g 

1959 RETURN 79 
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Lors de la pression de la touche STOP, l'affichage est 
interrompu, mais le sous-programme est toujours appelé. 
Dans l'exemple ci-dessus, interrompez le déroulement 
en appuyant sur STOP, puis réactivez-le après quelques 
secondes: vous constaterez que l'horloge n'a pas perdu 
son temps! Il en est de même lors de l’interruption 
par l'instruction INPUT. 


INTERVAL ON - INTERVAL STOP - INTERVAL OFF 
INTERVAL ON valide la déclaration ON INTERVAL GOSUB. 


INTERVAL STOP et INTERVAL OFF interrompent la 
déclaration ON INTERVAL GOSUB. Cette dernière peut 
ètre réactivée par INTERVAL ON. 


ON STRIG GOSUB no ligne 
Déclare le sous-programme à effectuer lors de la 
pression d’un des boutons des joysticks ou de la barre 
d’espacement. Le retour de ce sous-programme est 
effectué à l'endroit où le programme a été interrompu. 


STRIG(n) ON - STRIGi(n) STOP - STRIG(n) OFF 
Ces instructions valident ou interrompent la déclaration 
ON STRIG GOSUR. 


L’'argument n précise le bouton auquel on se réfère: 
9: barre d’espacement 
1: bouton du joystick 1 
2: bouton du joystick 2 


Le programme suivant ne fait rien tant que l’on ne 
pousse pas sur une de ces trois touches. A la pression 
d’une de celles-ci, le message "espace" est affiché 

et un signal sonore est émis. 


19 ON STRIG GOSUB 1999 
28 STRIG(9) ON : STRIG(1) ON : STRIG(2) 


ON 
25.0 
26 ’programme principal 
27 ? 
39 GOTO 39 
99 ? 
995 ?’ sous-programme de traitement de 
996 ? ON STRIG 
99? ? 


1989 PRINT "espace" : BEEP 
191@ RETURN 


Pour arrêter le déroulement, poussez CTRL STOP. 
STRIG(n) STOP interrompt la déclaration ON STRIG GOSUB, 


et donc n'effectue plus le sous-programme de traitement 
lors de la pression d’une touche correspondant à n. 
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Mais, l'ordinateur "mémorise" cette pression et 
effectuera le traitement lorsqu'il rencontrera 
l’instruction STRIG(n) ON. 


A l'exécution du programme ci-dessous, si vous poussez 
sur la barre d’espacement lorsque le nombre affiché est 
inférieur à 169, le message "espace" apparaît 

(STRIG(9) ON). Par contre, lorsque le nombre est 
supérieur à 199 et inférieur à 29%, la pression de 
cette touche n’a aucun effet (STRIG(®) STOP). Mais 
lorsque 269 est affiché (STRIG(@) ON), le mot "espace" 
le sera également. L'ordinateur a retenu que vous 

aviez poussé sur "SPACE" alors que STRIG(@) STOP était 
en fonction. 


19 ON STRIG GOSUR 1999 
29 STRIG(S) ON 


39 ? 

49 ON STRIG est effectif 
59 ? 

69 FOR I = 1 TO 196 

79 PRINT I 

89 NEXT I 

99 STRIG(S) STOP 

199 ? 

118 ON STRIG est inhibe 
129 ? 

1359 FOR I = 199 TO 299 
149 PRINT I 

158 NEXT I 

168 STRIG(@) ON 

179 ? 

189 ON STRIG est effectif 
198 ? 

269 GOTO 296 

196 ? 

1919 sous-programme ON STRIG 
192@ ? 


1939 PRINT "espace" 
1949 RETURN 


L'ordinateur ne mémorise toutefois qu’une seule 
pression. 


STRIG(n) OFF est semblable à STRIGin) STOP, mais il 
n’y a pas mémorisation. À titre d'exemple, remplacez 
la ligne 969 du programme ci-dessus par: 


79 STRIG(S) OFF 
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ON SPRITE GOSUB no ligne 
Définit le sous-programme à exécuter lors de la 
collision de deux "SPRITES" (lutins créés par 
l'utilisateur). 


Cette déclaration est décrite dans la partie 
"GRAPHISME". 


SPRITE ON - SPRITE STOP - SPRITE OFF 
Valide ou interrompt la déclaration ON SPRITE GOSUB. 
Ces instructions sont détaillées dans la partie 
graphique. 


ON ERROR GOTO no ligne 

RESUME <no ligne} 
Lors de la détection d’une erreur, l'ordinateur se 
branche automatiquement à la partie du programme 
indiquée par le numéro de ligne. Elle doit être 
terminée par RESUME. Cette instruction provoqué un 
nouveau branchement vers l'instruction qui avait 
provoque l’erreur. Pour illustrer ces deux 
instructions, il suffit de demander de calculer la 
racine carrée des nombres compris entre -19 et 9 (ce 
qui est impossible). Lors de la détection d’une erreur, 
on changera simplement le signe du nombre qui deviendra 
ainsi positif. 


14 ON ERROR GOTO 198 


29 FOR I = -19 TO & 
34 N = I 
4@ A = SGRIN) ’cette ligne provoqu 


era une erreur car on calcule 
la racine 


45 ’carree d’un nombre negatif 

= PRINT'"'La racine carree de";1;"est";a 
69 NEXTI 

7 END 

199 ? 

119 ’traitement de l'erreur 

129? 

139 N = - N 


149 RESUME ‘’Fin du traitement 


Lors de l'exécution, vous obtiendrez: 


La racine carree de-19 est 3.1622776681684 
La racine carree de-9 est 3 

La racine carree de-8 et 2.828427124/7462 
etc 


11 est évident que ces résultats sont mathématiquement 
faux puisque la racine carrée d’un nombre négatif 
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Divers 


STICK(n) 


n'existe pas. Mais cela est une autre histoire... 


L'instruction RESUME peut être suivie d’un numéro de 
ligne. 11 indique la ligne où il faut se brancher 
après avoir traité une erreur. Une division par zéro 
provoque une erreur. L'exemple ci-dessous fait 
afficher l'inverse des nombres entiers compris 

entre -5 et 19. Une erreur se produira lors de la 
recherche de l'inverse de 6. 


19 ON ERROR GOTO 1969 


29 FOR I = -5 TO 19 

39 PRINT "L’inverse de";1;5":";1/I 
49 NEXT I 

59 END 

1999 ? 


1919 ‘Traitement de l'erreur (division 
1929 ‘par zéro) 

1925 ? 

1939 PRINT " n'existe pas” 

1949 RESUME 49 ?’Branchement à la ligne 
1959 numéro 49 lorsque le traitement 
1969 est terminée. 


11 est possible de détecter le numéro de la ligne et 
le type de l'erreur produite. Référez-vous au chapitre 
consacré au traitement de l'erreur. 


Renseigne sur le mouvement du joystick intégré 
(SV-318) ou des touches de déplacement du curseur 
(SV-3528), ou des joysticks supplémentaires. 


L’argument n indique la manette choisie: 
g: joystick intégré ou touches de déplacement 
1: joystick 1 
2: joystick 2 


Ce renseignement est donné sous forme numérique, 
symbolisant les 8 directions possibles: 
9: pas de déplacement 


1: haut 

2: haut-droite (diagonal) 
3: droite 

4: droite-bas (diagonal) 
9: bas 


6: bas-gauche (diagonal) 
7: gauche 
8: haut-gauche (diagonal) 


CSRLIN 


POS (argument ) 
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Pour illustrer cette instruction, il suffit de taper: 


19 PRINT STICK(@) 
29 GOTO 19 


A l'exécution, le nombre correspondant sera affiché 
lors du mouvement du joystick intégré (SV-318) ou de 
la pression des touches fléchées (SV-328). Pour ce 
dernier, un mouvement diagonal est obtenu par la 
pression simultanée de deux touches. 


Donne la position du curseur sur l'écran. Si 
l'ordinateur est en mode texte (SCREENY), cette 
instruction donne un nombre compris entre 9 et 235 
correspondant à la ligne sur laquelle se trouve le 
curseur. 

En mode graphique, CSRLIN donne un nombre compris entre 


9 et 127 (si le curseur est placé sur une ligne 
comprise entre 9 et 127), ou entre -128 et -1 (si 

le curseur se trouve en dessous de la ligne 127). En 
mode graphique, le programme suivant déterminera la 
ligne effective où se trouve le curseur: 


9  SCREENI 

19 N = CSRLIN 

29 IF N < 9 THEN N = 256 + N 
39 PRINT N 


Donne la position du curseur dans la ligne. Cette 
instruction n’est efficace qu’en mode texte (SCREENG). 
L’argument est fictif et n’'influence pas le résultat: 
cela peut étre une expression numérique ou 
alphanumérique. 


LOCATE 15,5 : X = POS(@) : Y = CSRLIN : PRINT X,Y 


affichera les nombres 15 et 5. 
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CHAPITRE V 
Utilisation du cassetophone 


SAUVEGARDE ET RELECTURE D’°'UN 
PROGRAMME 


Voici un petit programme qui ne Va servir qu’à vous montrer comment 
utiliser votre ordinateur pour conserver un programme. 


19 FOR 1=1 TO 19 


29 A(I)=I 

sg PRINT A(I) 
49 NEXT I 

59 END 


Ce programme met en mémoire les nombres de 1 à 19 et les affiche l'un 
en-dessous de l’autre. 


CSAVE “nom Cette instruction permet la sauvegarde du programme 
résident en mémoire sur une cassette. Avec le 
SPECTRAVIDEO pas besoin de réglage de volume ni de 
tonalité, le cassétophone est toujours bien réglé. 


Précisez un nom désignant votre programme par exemple 
"essai". Le nom peut comporter autant de lettres que 
vous le désirez, mais seules les six premières seront 
conservées. N'oubliez pas les guillemets. Il vous 
suffit maintenant de taper <ENTER}. L’écran affichera 
“Press play on tape"; vous enfoncez la touche "=>" ou 
<play> du cassétophone et la sauvegarde s'effectue. 
Vous le constaterez en observant un voyant lumineux 
rouge s'’'allumer auprès de la mention "IN USE" du 
cassétophone. Lorsque le chargement sera terminé, 
l’écran affichera un "OK" de bon aloi ainsi que le 
curseur habituel. 
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CLOAD? Cette instruction vous permet de comparer le 
programme qui est sur une cassette avec celui qui est 
actuellement dans la mémoire centrale de l'ordinateur. 
Cette action est particuliérement utile lorsque vous 
venez de sauvegarder un programme et que vous désirez 
vérifier si la copie est correcte. Si le programme 
porte un nom, vous pouvez l'indiquer, l'instruction 
sera : CLOAD? "nom". Si vous ne mettez pas de nom, la 
comparaison s'effectuera avec le premier programme 
rencontré sur la cassette. Pendant l'exécution de 
cette instruction, la comparaison s'effectuera octet 
par octet. Si une différence devait apparaîftre, le 
message "Verify error" (erreur au cours de la 
vérification) s'affichera sur l'écran. Il ne vous 
restera plus qu’à recommencer la sauvegarde du 
programme. 


Essayez avec le programme se trouvant en mémoire et 
la copie que vous venez de réaliser sur cassette. 


CLOAD “nom” Cette commande vous permet de charger dans la 
mémoire de l'ordinateur un programme BASIC conservé 
sur cassette. 


Si vous n'’indiquez pas de "nom", l’ordinateur chargera 
le premier programme qu’il rencontrera sur la cassette. 
I1 vous le fera savoir en affichant le message : 
"Found:nom'", 


Si vous précisez le nom d’un programme, l'ordinateur 
recherchera sur la cassette le premier programme qui 
portera le nom indiqué. Il ne vous est pas nécessaire 
de connaître la position exacte du programme sur 

la cassette, faites commencer la recherche au début 
de la bande et l'ordinateur fera le reste. Au passage, 
l'écran affichera le nom des programmes successifs 
qu’il rencontrera. 


Attention, cette commande entratne l'effacement d'un 
programme qui se trouverait éventuellement en mémoire. 


ADTIONCTION DE PROGRAMMES 


11 est quelquefois nécessaire de relier divers programmes existant sur 
cassette, Cela se révèle particulièrement utile lorsqu’ après avoir 
mis au point de petites sous-routines vous souhaitez les réutiliser 
dans vos programmes. 


Attention cependant, vous ne pouvez pas sauvegarder ni rappeler ces 
programmes avec les instructions CLOAD et CSAVE. À leur place, vous 
utiliserez LOAD<"nom"> et SAVE"nom". Leur emploi est 

identique, la seule différence venant du fait que les programmes sont 
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sauvegardés et lus en mode ASCII, expression nécessaire à 
l’utilisation de la commande MERGE. 


MERGE “nom” Le nom sera celui utilisé lors de la sauvegarde 
du programme, en mode ASCII . 


Vous devez prendre garde aux numéros de ligne car si 
le programme résident possède des instructions ayant 
des numéros de lignes identiques au programme en cours 
de chargement, elles seraient remplacées par ces 
dernières. Utilisez la commande RENUM pour préparer 
vos programmes avant leur réunion. 


SAUVEGARDE ET LECTURE DE TABLEALIXK 
DE DONNEES 


Il est très intéressant de pouvoir sauvegarder des données sur 
cassette et de les relire après. Toutes les gestions de fichiers se 
font grâce à cela. L'utilisation des cassettes n'est pas le procédé 

le plus efficace pour retrouver rapidement des informations mais si le 
fichier n'est pas trop important en volume ou si vous disposez de 
beaucoup de mémoire, cela peut se révéler une méthode peu coûteuse. 


Voici un petit programme qui va vous aider, je l'espère, à comprendre 
le mécanisme de sauvegarde de tableaux de données. 


Préparons les données que nous voulons sauvegarder : 


19 AF="Bonjour" 
29 Bÿ="Je suis " 
39 CH="un SPECTRAVIDEO" 


Voici les lignes suivantes qui vont permettre de sauvegarder ces trois 
variables. 


49 OPEN "CAS:ESSAI" FOR OUTPUT AS1 
59 PRINT#1,AS 

69 PRINT#1,B 

79 PRINT#1,C 

89 CLOSEI 


OPEN "CAS:nom" FOR OUTPUT AS1 
Cette commande permet d'ouvrir un fichier sur cassette 
(c'est ce que signifie OPEN "CAS:) et vous ne devez 
pas oublier de préciser CAS: ainsi que le nom que vous 
souhaitez donner à votre fichier. Dans le cas de notre 
exemple : ESSAI. 


FOR OUTPUT ASi1, 
cassette. 
PRINT#1i,nom var. 


Cette 
caractères dans un 


signale que les 
suivre concernent l'écriture des 


instructions qui vont 
informations sur la 


instruction permet l'écriture d’une chaîne de 


fichier séquentiel sur cassette. 


Dans le cas où l'écriture concerne une valeur, 


l’expression générale est conservée : 


PRINTH1,A 


où À est une valeur. 


Attention, 


vous verrez plus loin dans cet ouvrage 


que vous pouvez associer plusieurs variables avec 


l'instruction PRINT, 


même principe peut 
prenez garde: 


par exemple PRINT AS,B#,CH. Le 
étre appliqué avec PRINT#I1, mais 


la virgule DOIT ETRE MISE ENTRE GUILLEMETS. 


L'expression correcte sera donc : 


PRINT#1, 


CLOSE 1 


La relecture des données ainsi 


AS ” : 0] B$S 0] : 0] CS 


Ferme le fichier et signale la fin de la sauvegarde. 


sauvegardées sera 


réalisée par le programme suivant : 


19 
2a 
39 
49 
59 
59 
69 
76 
34 
Ed] 
OPEN 


“"CAS:nom*" FOR INPUT AS1 


CLS 

OPEN "CAS:ESSAI" 
INPUT#H1,AF 
INPUT#1,B% 
INPUT#1,CS 
CLOSE1 

PRINT AS 

PRINT B#$ 

PRINT CH 

END 


FOR INPUT AS1 


Cette commande permet d'ouvrir un fichier séquentiel 


sur cassette. 
celui 


FOR INPUT AS1 signale que les instructions qui 


Le nom du fichier doit correspondre à 
du fichier qui 


a été sauvegardé. 


vont 


suivre concernent une lecture d'informations se trouvant 


sur cassette. 
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INPUT#1,nom var. 
Cette instruction permet de lire des données à partir 
d’un fichier séquentiel sauvegardé sur cassette. Les 
noms de variables peuvent étre différents de ceux 
qui ont servi à la sauvegarde des données. Le seul 
point auquel vous devez faire attention c'est de 
conserver la nature de la variable : ne lisez pas une 
variable numérique en demandant une variable 
alphanumérique. Si une chafne de caractères est lue 
alors que la demande porte sur une variable numérique, 

rien ne se mettra dans la variable. 


Vous pouvez également, comme pour INPUT, faire appel 
à plusieurs contenus de variables - INPUT A$,B#$,C$. 


L’instruction sera : 


INPUTH1, A$,B5,C%. 


Pas besoin dans ce cas de mettre les virgules entre 
guillemets mais ne demandez pas plus de variables que 
n’en contient le fichier sauvegardé sur cassette car 

le message : "Input pass end in 199" s’'affichera 

(la demande dépasse l’offre à la ligne 199 par exemple). 


SAUVEGARDE ET LECTURE DE DONNEES 
BINAIRES 


11 n’est pas rare, que prenant goût à la programmation, vous vous 
mettiez à écrire des programmes en langage machine. Vous pouvez 
également sauvegarder votre production par des commandes appropriées : 


BSAVE "nom',adresse départ,adresse fin<,adresse exécution} 
Le programme portera un nom que vous préciserez entre 
guillemets. Vous devrez également écrire : 


—- l'adresse de départ 

—- l'adresse à laquelle se termine le programme 

- et éventuellement l'adresse à laquelle démarre le 
programme et qui n'est pas nécessairement la même 
que l’adresse de départ. 


BLOAD "nom" <,adresse de chargement} 
Cette instruction vous permet de recharger en mémoire 
un programme en langage machine préalablement 
sauvegardé. Vous devrez préciser le nom de celui-ci, 
si ce n'était pas fait le message d’erreur 
“Missing operand" vous indiquerait que vous avez 
oublié d’indiquer une information. 
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Si vous n’indiquez rien après le deuxième guillemet, 
le programme se chargera exactement où il était quand 
vous l'avez sauvegardé sur la cassette. Si vous 
souhaitez le positionner à une autre place en mémoire, 
il vous suffit de préciser laquelle. Attention votre 
programme doit être compatible avec ce déplacement. 


TELECOMMANDE DU CASSETOPHONE 


Comme vous avez déjà eu l’occasion de le constater, le lecteur de 
cassette est commandé par l’ordinateur. En plus des commandes de 
sauvegarde et de lecture des programmes vous pouvez utiliser un 1: EU 
sonore pour diffuser des messages : par exemple, le titre du programme 
ou encore une information qui est nécessaire au déroulement du 
programme. 


SOUND ON / OFF Ces deux instructions vous permettent d’'"entendre" 
le contenu de vos cassettes. S'il s’agit des cassettes 
de programmes que vous avez achetées vous entendrez 
les zones enregistrées : une première avec un son 
uniforme (ce sont des ®@) suivi d’une brêve modulation 
(c’est le nom du programme), les zones suivantes 
correspondant aux données ou au programme. 


S'il s'agit d'informations que vous avez sauvegardées 
à l’aide du lecteur de cassettes, vous constaterez que 
le son est fortement atténué. Cela provient du fait 
que le lecteur de cassettes possède deux pistes, l’une 
consacrée aux programmes ou données, l’autre aux 
messages éventuels. 


MOTOR ON / OFF Ces deux commandes permettent respectivement de 
mettre en route et d'arrêter le déroulement de la 
cassette. 


Illlustrons ces commandes par deux exemples : 


Reprenez le programme décrit au début de ce chapitre. 
Ecrivez-le et avant de le sauvegarder tapez : 


MOTOR ON <ENTER?> 


Mettez en route l’enregistreur en position 
d’enregistrement et abaissez la commande MIC ON. 
Enoncez le nom de votre programme et dès que vous 

avez terminé, arrêtez le lecteur de cassettes. En | 
commande directe, tapez MOTOR OFF suivi par la commande 
de sauvegarde d’un programme : CSAVE'"ESS" par exemple. 
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À la relecture du programme et à condition que SOUND ON 
soit en action, vous entendrez d’abord votre voix et 
le programme se chargera ensuite. 


Attention, vous constaterez que le fait d’appuyer sur la 
touché de mise en marche de l’enregistreur sans que 
l'ordinateur ne vous le demande, entraîne le 

défilement de la bande même si la commande MOTOR OFF 

a été activée. 


La seconde possibilité, faire entendre un message 
pendant le déroulement d’un programme, est très 
intéressante au niveau de programmes d'enseignement. 
Ce sera l’occasion de créer des programmes de dictées, 
de répétiteur de vocabulaire, ... 


Vous n'êtes pas assez loin dans la lecture de cet 
ouvrage pour envisager dès maintenant une illustration 
de ce type. Nous nous contenterons d'un message de 
salutations. 


Au préalable enregistrez une petite phrase, par exemple: 


Bonjour, mon nom est SPECTAVIDEO et je suis prét à 
vous faire vivre des moments de joie intense." 


Rembobinez votre cassette, introduisez le programme 
suivant et faites-le fonctionner. 


18 CLS 

24 SOUND ON 

39 MOTOR ON 

49 FOR 1I=1 TO 7696 
959 NEXT I 

69 MOTOR OFF 

7 SOUND OFF 

89 END 


Le principe est facile à comprendre : 

- on "ouvre" le son 

- on met en route le défilement pour une durée précise, 
c'est la raison du FOR ..,. TO... NEXT 

- on arrête le défilement de la cassette 

- on "ferme" le son. 


Le guide du SPECTRAVIDEO / 87 


CHAPITRE VI 
Opérateurs et fonctions numériques 


LES NOMBRES 


Il existe 3 types de variables numériques : les variables entières, 

simple précision et double précision. Le type en est précisé par le 

dernier caractère décrivant la variable (en principe le second ou le 
troisième) %,# ou !. 


Par défaut, c’est-à-dire lorsque vous n'avez pas précisé le type, les 
variables sont en double précision. Le tableau ci-après vous éclairera 
sur chaque type. 


Type Caractère de Illustration 
déclaration 


Entier 
sont compris entre -32768 % A%=10 
et +32767 


Simple précision 
6 chiffres significatifs ! S'=12.3456 


Double précision 
14 chiffres significatifs # A#=12345.6789912 


11 vous faut savoir que plus la précision augmente et plus la place 
occupée en mémoire est importante, et plus le temps mis par l'ordinateur 
pour manipuler ces quantités est augmenté. 


11 vous est possible d'exprimer les nombres dans quatre bases de 
numération. Nous ne parlerons pas de la base 19 qui est l'expression 
habituelle des nombres. Dans certains cas, cependant, il vous sera 
nécessaire d'introduire les nombres sous leur expression binaire, 
octale ou hexadécimale. Voici quelques exemples de ce type d'écriture 


XS="&B11991199" : PRINT VAL(X#) ----) 52 
X#="&0173" : PRINT VAL(XS) ----> 123 
XS="LHIABS" : PRINT VAL(XS) =+5-) 6835 


Le nombre sera exprimé soit en base 2 (Binaire), en base 8 (Octal) ou 
en base 16 (Hexadécimal) sous la forme d’une chafne alphanumérique 
dont le premier caractère sera toujours "&" (ampersand) et le second 
la première lettre du système de numération. 


La fonction VAL(...) sera expliquée au chapitre suivant et 


l’utilisation de l'expression binaire des nombres dans le chapitre 
traitant du graphisme. 


LES OPERATEURS 


Arithmét iques 


Vous connaissez la plupart de ceux-ci puisqu'ils concernent les 
opérations arithmétiques. 


+ Addition 
: Soustraction 


La Multiplication (x pour ne pas confondre avec X) 
/ Division (/ pour ne pas confondre avec :) 
EE Exponentiation 2°3 - 2 exposant 3 - correspond à 
\ ZX2Y*2 et donnera 8 comme résultat. 


Division entière 3\2 donnera 1 comme résultat 
MOD Modulo, SMOD2 donnera 1. En effet 1 est le reste de 
la division de 3 par 2. 


Logiques 


AND 11 s’agit du ET logique. Cet opérateur sert dans 
les conditions pour tester si deux propositions sont 
vraies en même temps. 


Par exemple IF N>5 AND N£19 THEN GOTO 199 signifie 
que si la valeur de N est à la fois plus grande que 

5 et inférieure à 19 alors le programme se poursuivra 
à la ligne 199. 


Cet opérateur peut également servir à comparer deux 
expressions alphanumériques, par exemple : 


IF A$="BON" AND B#="JOUR" THEN PRINT "BONJOUR". 


AND est aussi utilisé pour calculer une expression 
logique. 


Par exemple : 
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19 X=1 : Y=1 : Z=9 *1 pour vrai et 9 pour faux 
29 A=X AND Y : PRINT À 
39 B=X AND Z : PRINT B 


Modifiez les valeurs attribuées à X,Y et Z. Par exemple 
mettez 5, 5 et 3. Vous obtiendrez comme résultat : 
.S et 1. 


Le Spectravideo se sert de l’opérateur AND pour 
effectuer l'opération binaire ET (booléen) entre deux 
nombres. 11 s’agit de les comparer bit par bit et 
d'écrire 1 partout où les deux bits sont 1 et © dans 
les autres cas. Un petit tableau (table de vérité) 
visualisera cette situation. 


situation 1 
situation 1 situation 2 AND 
situation 2 


Reprenons notre exemple en exprimant les nombres sous 
forme binaire : 


5 ==} 1 © 1 
ss] ==} 1 © 1 
5 AND 5 ==} 1 © 1 soit 5 en décimal 
ss] ==} 1 © 1 
3 ==} 1 1 
5 AND 3 ==} g @ 1 soit 1 en décimal 


Une utilisation de ce procédé se retrouve dans la 
réalisation de masques, c’est-à-dire, que l’on 
recherche un cas particulier et on compare le 
résultat obtenu avec une structure particulière : 
le masque. 


Cet opérateur s'utilise pour combiner deux 
conditions, par exemple, 


IF N<9 OR N>19 THEN GOTO 199 
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XOR 


signifie que si la valeur de N est inférieure à @ OÙ 
supérieure à 19 dans l’une de ces éventualités le 
programme se poursuivra à la ligne 199. 


OR peut s'étendre à d’autres situations car il sera 
reconnu vrai quand l’une au moins des conditions est 
elle aussi vraie. Trois cas sont possibles : la 
première est seule vraie, la seconde est seule 
vraie, les deux conditions sont vraies. Le tableau 
suivant exprime ce fait. 


situation 1 situation 2 


1 (vrai) 1 (vrai) 1 (vrai) 
1 (vrai) g (faux) 1 (vrai) 
g (faux) 1 (faux) 1 (vrai) 
g (faux) g (faux) @ (faux) 


Essayez le programme suivant : 


B=S : C=3 
: PRINT X 
OR C : PRINT Y 


DD. 
Q 
pa 
ts 


Ce qui s'explique par : 


D ——} 1 © 1 
5 —-} 1 © 1 
9 OR 5 ==? 1 9 1 soit S en décimal 
5 =} 1 @ 1 
3 ——} g 1 1 
5 OR 3 ——} 1 1 i soit 7 en décimal 


Le Spectravideo utilise OR pour calculer OÙ binaire 
de deux nombres. Il compare bit par bit ceux-ci et 

donne 9 dans le seul cas où les deux bits comparés 

sont nuls. 


Très peu de différence par rapport à l'opérateur 
précédent. La comparaison est déclarée fausse (9) 
lorsque les deux relations sont vraies ou fausses en 
même temps. En français, cela correspond à 
l'expression "ou bien". 


Exemple : 


IF AS XOR B>5 THEN GOTO 169 
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Le branchement s'effectuera si une seule des deux 
conditions est vérifiée. 


situation 1 situation 2 


1 (vrai) 1 (vrai) g (faux) 
1 (vrai) g (faux) 1 (vrai) 
g (faux) 1 (vrai) 1 (vrai) 
g (faux) g (faux) g (faux) 
EGV Cet opérateur correspond à l'EQUIVALENCE. La table 


de vérité est : 


situation 1 situation 2 


1 (vrai) 1 (vrai) 1 (vrai) 
1 (vrai) g (faux) g (faux) 
@ (faux) 1 (vrai) g (faux) 
g (faux) g (faux) 1 (vrai) 


Cet opérateur est la négation de XOR, c'est-à-dire 
que le résultat est vrai dans le cas où les relations 
comparées ont la même valeur logique. 


Exemple : IF A=5 EQV B=3 THEN GOTO 169 


Le branchement s'effectuera dans le cas où les deux 
conditions sont remplies, ou lorsqu’aucune des deux 
conditions n'est remplie. 


IMP L’IMPLICATION est toujours vraie sauf dans le cas 
où la première relation est vraie et la seconde fausse. 
Cet opérateur correspond en fait au SI ... ALORS... 
logique. 


Par exemple, s’il pleut alors je prendrai un parapluie. 


Cette expression est vraie sauf dans le cas où je ne 
prends pas un parapluie alors qu’il pleut. Cela 
signifierait que l'expression précédente n’a aucun sens 
pour moi. 


situation 1 situation 2 


1 (vrai) 1 (vrai) 1 (vrai) 
1 (vrai) g (faux) g (faux) 
g (faux) 1 (vrai) 1 (vrai) 
g (faux) 9 (faux) 1 (vrai) 


Essayez le petit programme suivant : 


19 INPUT "A= ";A 
29 INPUT "B= ";B 

S9 IF A=S IMP B=3 THEN PRINT "VRAI": GOTOSS 
49 PRINT "FAUX" 

59 END 


Le message faux ne sera affiché que si A=S et B<>3, 
vrai sera affiché dans tous les autres cas. 


NOT 11 s’agit de la NEGATION d’une proposition logique. 
Si une proposition est vraie, sa négation est fausse ! 
Cet opérateur renverse les conditions d’une déclaration 
IF...THEN..,., par exemple : 


IF NOT {N>5) THEN GOTO 1@@ 


signifie que le branchement s'effectuera à la seule 
condition que N soit inférieur ou égal à 5. 


Autre exemple que vous utiliserez fréquemment dans 
vos programmes. 11 s’agit de tester si une réponse 
donnée est différente de oui ou de non. 


IF NOT (R$&="OUI" OR R#="NON") THEN GOTO 199 


Le branchement sera effectué lorsque R$ contient une 
autre chaîne qui ne sera ni oui ni non. Ceci vous 
montre que la négation du OÙ est ET. Il en sera de 
même pour la négation de ET qui donnera OÙ (loi de 
DE MORGAN). 


De comparaison 

11 s’agit des : <, >, =, <=, >=, <> dont la présentation a déjà été 
faite dans la partie consacrée à la programmation structurée. Le 
résultat sera de -1 si la condition est vraie et de @ si la condition 


est fausse. 


Exemple: 


19 CLS 

29 INPUT "A=";A 

39 INPUT "B=";B 

49 PRINT 

99 PRINT "VALEUR LOGIQUE DE A=B "; (A=B) 
69 END 


Si vous donnez à À et à B la même valeur, la ligne 59 affichera la 
valeur -1, si par contre la valeur de A est différente de celle de B, 
c'est -1 qui sera affiché. 
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Les priorites 


Quel est à votre avis le résultat de l’opération suivante : 
2+3+%X2 ? 
Deux réponses peuvent être possibles : 19 ou 8, selon que l’on 


donne la priorité à l’addition ou à la multiplication. L'ordinateur 
affichera 8. Il effectue ce calcul de la manière suivante : 


De même pour le calcul suivant : 


12-66 XX 2 + 6 / 3 + 4 
Dre 
ru 
ed 
ne 
RS 
Sms FE AE ERE 


Lorsque deux opérateurs sont identiques, l’opération s'effectue dans 
le sens gauche-droite. Si vous souhaitez modifier les priorités 
accordées par la machine, il vous suffit d'utiliser les parenthèses. 
A partir de ce moment, l’ordinateur calcule d’abord le contenu des 
parenthèses suivant les règles algébriques traditionnelles. L’emploi 
des parenthèses, même si elles ne sont pas nécessaires, permet 
souvent de rendre une expression plus compréhensible et donc d’éviter 
les erreurs. 


Tableau des priorités. (par importance décroissante) 
expression entre parenthèses 
* (puissance) 
-A (opposé de ..,) 
*,/ 
(div. entière) 
MOD 


+,- 
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opérateurs de comparaison 


NOT 
AND 
OR 

XOR 
IMP 
EQV 


LES FONCTIONS 


Alageébriques 


ABS {(vV) 


EXP (v) 


FIX(v) 


INT (v) 


LOG(v) 


SGN(v) 


(valeur absolue de ...) 
Donne la valeur absolue de v. (v est soit un nombre, 
soit une expression, soit une variable numérique) 


Exemple PRINT ABS(8.56) —--} 8.56 
PRINT ABS(-8.2) —--} 8.2 
(valeur exponentielle de ... eY) 


Donne la valeur en base népérienne (e=2.718281892894588.) 
de e exposant v. 


(fixe la partie entière de v) 
Enlève la partie décimale de toute expression numérique. 


Par exemple : PRINT FIX(2.56) —--} 2 
PRINT FIX(-2,56) ---}> -2 


(partie entière de ...) 
Donne la partie entière de l'expression v. 


Par exemple : PRINT INT(2,.56) se) 2 
PRINT INT(-2.56) ---2 -3 


En BASIC les nombres sont arrondis à l’entier inférieur, 


ce qui explique que la partie entière d’un nombre 
négatif est l’entier immédiatement inférieur. 


(logarithme naturel de ...) 
Donne le logarithme en base e de v. Pour obtenir le 
logarithme en base 19, il suffit d’utiliser la formule 


de transformation suivante: 


LOG(V) + 9.434294489199325 ou encore 
LOG(V) *X (1/L0G(1@)) 


X 
X 


(signe de l'expression ...) 
Donne -1 quand l'expression v est strictement négative. 


(inférieur à 9), 1 quand elle est positive et @ quand 
v est nul, 
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S&R(v) (racine carrée de ...) 
Donne la valeur de la racine carrée de l'expression. 
Attention, v ne peut étre négatif, car dans ce cas 
un "Illlegal function call" s’affiche. 


Trisgonométriques 


Un petit rappel pour débuter. Considérons un triangle rectangle dont A 
est l’angle droit, a l’hypothénuse, b et c les côtés de l'angle 

droit, B et C les deux autres angles respectivement opposés aux côtés 
b et c. 


Les relations suivantes existent : 
a * SIN B 


a * COS C 
= c * TAN B 


TT 
il 


Comme vous le constatez, les trois opérateurs trigonométriques 
principaux sont exprimés dans ces formules. La valeur des angles est 
exprimée en radians (2X3.1416 correspond à 360 degrés). 


cosS{(v) (cosinus de ...) 
Donne le cosinus de l'expression v exprimée en radians. 
Le résultat est toujours compris entre -1 et +1. 


SIN(v) (sinus de ...) 
Donne le sinus de l'expression v exprimée en radians. 
Le résultat est toujours compris entre -1 et 1. 


TAN (v) (tangente de ...) 
Donne la tangente de l'expression v exprimée en radians. 
Le résultat varie de - l'infini à + l'infini ce qui 
se traduit sur votre ordinateur par des nombres exprimés 


en notation scientifique jusqu’au dépassement de 
capacité de la machine. 


ATN(v) (arc dont la tangente vaut ,...) 
Donne la valeur en radians de l’angle dont la tangente 
vaut v. 


La valeur de PI s'obtient par l'application de 1a 
formule : 


PI = 4 *% ATN(1) 


Les autres fonctions trigonométriques s’obtiennent 
au départ de ces quatre expressions. Voici à titre 
d’information, diverses fonctions qui peuvent vous 
être utiles. 


Fonction En BASIC 


SECANTE 1/C0S(%) 

COSECANTE 1/SIN(X) 

COTANGENTE 1/TAN({X) 

ARC SINUS ATN(IX/SGR(-XXX +1) ) 

ARC COSINUS —ATN(IX/SGR(-XXX+1))+P1/2 

ARC COTANGENTE ATN(X)+PI/2 

SINUS HYPERBOLIQUE (EXP (X) -EXP (-X))/2 

COSINUS HYPERBOLIQUE (EXP (X) +EXP (-X)) /2 

TANGENTE HYPERBOLIQUE (EXP (-X) /EXP(X) +EXP(-X))X2+1 
SECANTE HYPERBOLIQUE 2/(EXP{(X) +EXP (-X) ) 

COSECANTE HYPERBOLIQUE 2/(EXP{(X)-EXP(-X)) 

COTANG. HYPERBOLIQUE EXP (-X)/(EXP{X)-EXP(-X))#2+1 


De conversion 


Un exemple vaut mieux qu’un long discours. 


19 INPUT "A=";A 

15 PRINT 

28 PRINT CDBL (A) 

39 PRINT CINT (A) 

49 PRINT CSNG (A) 

99 PRINT 

69 GOTO 19 

RUN 
A=.3333333333333333333335333333333333 


9.333335333333333 

g 

9.333333 
A=125.1234567891911 


125.1234567891 


125 

125.123 

CDBL(v) Converti ... en un nombre en DouBle précision. 
CINT(vV) Converti ... en un nombre entier - INT. 


CSNG(v) Converti ... en un nombre en Simple précision. 
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Autres fonctions 


FRE (exp) {quantité de mémoire disponible pour ...) 
Deux possibilités vous sont offertes : 


- Si l'expression est numérique (un nombre, une 
variable) X=FRE(exp) donne le nombre d’octets encore 
disponibles pour l'utilisateur. 


- si l'expression est alphanumérique (une chaîne 
ou une variable) X=FRE(exp) donne le nombre d’octets 
encore disponibles pour les chaînes de caractères, 
initialisé par CLEAR nombre. 


RND (v) (nombre aléatoire) 
Vous avez tous chez vous une machine à générer des 
nombres au hasard! un dé pour autant qu'il ne soit 
pas pipé. En effet celui-ci obéit à certaines règles : 


- il donne des nombres de 1 à 6 
- chaque nombre a la même chance d’apparaîftre 
(en statistique, on dira que chaque nombre - face 
de dé - a la même probabilité d’apparition) 
c'est-à-dire que chacun a une chance sur 6 d’être 
tiré. 
- un jet de dé n'est pas influencé par un jet 
précédent. 


De cet exemple, il nous est possible de tirer les 
caractères généraux qui nous permettront de dire qu’un 


nombre est bien choisi selon les lois du hasard : 


11 est choisi parmi un ensemble de nombres connus. 
Chaque nombre a la même chance d'être choisi. 
Le choix est indépendant des tirages antérieurs. 


Le Spectravideo, grâce à une fonction appropriée, 
peut générer de tels nombres. 


Essayez le programme suivant : 


19 FOR I=1 TO S 

29 PRINT RND(1) 
39 NEXTI 

59 END 


RUN 

9.597521943994623 
9.19658628959158 
9.76597651772823 
9.57756392935958 
9.?73474759593023 


Vous constatez que vous obtenez les même nombres 

que ceux repris ci-dessus, qu’ils sont compris entre 
0.00000000000081 et 9.799999999900900, que chaque nombre 
n’apparaîft qu’une fois (vous pouvez augmenter la 
quantité de nombres tirés, il y a peu de chance que 
vous obteniez deux fois le même nombre). 


Eteignez l'ordinateur, rallumez-le, réécrivez le 
programme et faites-le fonctionner à nouveau, Vous 
obtiendrez la même séquence. En fait, nous nous 
trouvons face à une génération pseudo-aléatoire de 
nombres. 


11 existe un moyen de s’en sortir ! 


Modifiez le programme en introduisant les lignes 
suivantes : 


S INPUT À 
6 X=RND(A) 


Donnons différentes valeurs à A. 


On constate que : 


- Si À est positif, la séquence générée est toujours 
la même. 

- Si À est négatif, chaque valeur engendre une séquence 
différente. 


si À est un nombre de 3 chiffres, seuls les trois 
premiers chiffres des nombres générés seront 
modifiés, 


si À est un nombre d’un seul chiffre, seul le 
premier chiffre des nombres générés est modifié. 


si À est un nombre de n chiffres (au maximum 14), 
les n premiers chiffres des nombres générés seront 
modifiés. 


Malgré ces constatations, nous n’avons toujours pas 


de génération aléatoire: il suffirait que À soit 
déterminé au hasard pour que tout s’arrange! La variable 


TIME va remplir cet office. 
La ligne 5 sera modifiée de la manière suivante : 


9 X=RND(-TIME) 


la ligne 6 étant effacée. 
Cette fois plus moyen de prévoir la suite générée. 
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Créer un jeu de dés ne demande pas des nombres avec 
autant de chiffres décimaux et s’exprime par des entiers 


compris entre 1 et 6. 

11 existe un moyen très simple pour déterminer les 
coefficients à utiliser dans une formule permettant 
de générer des nombres aléatoires compris entre 
certaines limites. 

Pour tirer des nombres de 1 à 6, l'expression sera : 


X= INT (RND (1) % 6 ) + 1 


quantité de nombres premier nombre 
possibles 


Pour tirer des nombres compris entre 154 et 265, 
l'expression serait: 


X = INT (RND (1) %X 112 ) + 154 


(112= 265 -154 +1 ) 


Essayez le programme suivant : 


19 FOR I=1 TO 3 


29 PRINT RND(1) 
39 PRINT RND(@) 
49 NEXT I 

59 FOR I=1 TO 5 

69 PRINT RND(@) 
78 NEXT I 

89 END 

RUN 
9.597521943994623 
9.59521943994623 


9.19658628959158 
9.19658628959158 
9.76577651772823 
9.76597651772823 
9.76597651772823 
8.76597651772823 
9.765977651772823 
9.76597651772823 
9.76577651772823 


Vous constatez que RND(@) repète le nombre produit 
par la dernière instruction RND(...) exécutée. 


TIME (compteur de temps) 
La variable TIME est une variable numérique 
particulière qui est incrémentée tous les 
cinquantièmes de seconde par l'ordinateur. Elle est 


100 


initialisée à zéro à la mise sous tension de votre 


machine. Elle peut être modifiée par BASIC par : 
TIME = v 


TIME varie entre 1 et 65535. Dès que cette dernière 
valeur est dépassée, le compte recommence à 9 (environ 
22 minutes), 


LL? INSTRUCTION DE CREATION 
DE FONCTIONS 


11 vous est possible de créer vos propres fonctions. La forme gét ile 
est: 


DEF FN var.(fct) = formule 


L'expression de var. est identique à l’expression d’une variable 
numérique. "fct" sera une lettre qui sera remplacée par l’argument de 
fonction lorsque la fonction sera appelée. Quant à la formule, ce sera 
une expression BASIC composée de la/ou des variables "fct" 
accompagnées éventuellement d’autres variables. D’autres fonctions, 
soit créées par vous, soit figurant dans le système peuvent être 
inclues dans l'expression mais attention, une fonction ne peut 
s’appeler elle-même. 


Par exemple: 
rechercher la valeur de la fonction 
Y = 4(X-2) + 2X%X +4 
s’obtiendra par 


- une initialisation de la fonction par 
DEF FNY(X)=4X(X-2) + 2XX + 4 


— la précision de la valeur X 
X=S5 


- l'appel de la fonction et l'affichage du résultat. 
A= FNY{(X) 
PRINT A 


Vous pouvez, grâce à cette instruction, vous faciliter la tâche. 
Par exemple, en trigonométrie, toutes les fonctions utilisent des 
arguments exprimés en radians. Une fonction convertissant les degrés 


en radians vous sera utile et elle sera de la forme : 


DEF FNRA(X) = XXYATN(1)/45 
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Voici un petit programme illustrant le procédé. 


19 
29 
39 
49 
59 
69 
79 
89 
96 


DEFFNRA(X)=XXATN(1)/45 


CLS 

INPUT "Valeur de l’angle en degre :"35X 
Y=FNRA(X) 

PRINT 

PRINT "Ce qui correspond a"Y" radians" 
PRINT "SINUS : "SIN(Y) 

PRINT "COSINUS : "COS (Y) 

PRINT "TANGENTE : "TAN(Y) 


196 END 


L'utilisation de cette technique est plus utile encore dans le calcul 
d'expressions utilisant plusieurs variables. Par exemple, le calcul de 
l’intérét connaissant le capital, le taux (en %) et le temps (en 


années). 


19 
29 
39 
49 
99 
69 
79 
89 
99 


DEFFNI(C,TA,TP)=CXTAXTP/190 
CLS 

INPUT "CAPITAL "30 
INPUT "TAUX (%) :"3TA 
INPUT "TEMPS (AN.):"3TP 
I=FNI(C,TA,TP) 

PRINT 

PRINT "INTERET "si 

END 
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CHAPITRE VI 


Traitement des chaînes 
alphanumériques 


INTRODUCTION 
Conçus à l’origine pour effectuer des opérations sur les nombres, les 
ordinateurs ont très vite été utilisés dans le traitement de texte. 


Comme pour le calcul arithmétique, il existe ce que nous appellerons 
des constantes et des variables "chaînes de caractères". 


Une CONSTANTE est toujours comprise entre des guillemets. Par exemple, 
"Bonjour", "Monsieur", "2 + 4". La constante est représentée par 
l’ensemble des caractères compris entre les guillemets. 

Une VARIABLE est caractérisée par un nom de "tiroir". Nous avons vu 


précédemment que ce nom est composé d’une lettre suivie ou non d’un 
second caractère et se terminant par l'indicateur %. 


LONGUEUR D'UINE CHAINE 
AlLPHANUMERILIQGQUE 


LEN (...) Cette fonction donne la longueur en nombre de 
caractères d’une chaîne. 
19 X$ = "Bonjour" 
284 PRINT X#3:" "y LEN(XH) 


RUN 


Bonjour 7 
skrrek 
# 


Tapez et faites fonctionner le petit programme suivant : 


19 A = "Informatique" 
29 BF = "4 + 3 = 7" 
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39 PRINT LEN(AH), LEN(B#) 
49 END 


L'écran affichera 12 et 9. 


Cette fonction vous permettra de constater que la 
chaîne "" correspond à un ensemble vide, sa longueur 
étant de @ tandis que " " représente une chaîne 
comportant 1 élément (l’espace), sa longueur étant de 1. 


Attention à cette particularité dans vos programmes. 
LES CONVERSIONS 


Comme nous l'avons dit précédemment, il existe plusieurs types de 
variables : les chaînes, les nombres entiers, en simple précision, en 
double précision. Des fonctions existent permettant de transformer un 
nombre en une chaîne alphanumérique. 


STR(X) Convertit une valeur numérique en chaîfne de 
caractères. 
Si la valeur est positive, le premier caractère de la 
chafne sera un espace, ce qui correspond au signe "+" 
(sous-entendu). 
Dans le cas d’un nombre négatif, le signe "-" occupera 
cette place. Les autres signes composant l'expression 
d’un nombre ("." et "E") seront également traduits. 


Le paramètre se trouvant entre les parenthèses peut 
être un nombre ou une variable numérique. 


Exemple : STR$ (25) ou si X vaut 25 , STR$ (X) 
19 X = 256 
29 NF = STRH(X) 
39 PRINT X35" "sNG 


49 END 


RUN 
NS 


à s 


(place du signe) 


VAL (chafne) C’est l'opérateur inverse. Il convertit une chaîne 


de caractères en nombre quand cela est possible. 
Le BASIC interprète les caractères à partir de la 
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gauche et n'accepte que les caractères représentant 

un nombre, Dès qu’un caractère non interprétable est 
rencontré, il arrête son travail et passe à l'instruction 
l’instructi suivante. Les espaces sont ignorés. 


Pour vous rendre compte de ce qui se passe, essayez 
le petit programme suivant : 


19 INPUT "ECRIVEZ UNE CHAINE : "5 CH 

29 PRINT "LA VALEUR DE LA CHAINE EST : "3 VAL(CHS) 
39 PRINT 

49 PRINT 

59 GOTO 16 


RUN 
ECRIVEZ UNE CHAINE : 2345 


LA VALEUR DE LA CHAINE EST : 2345 


ECRIVEZ UNE CHAINE : MJU78 
LA VALEUR DE LA CHAINE EST 


La] 


ECRIVEZ UNE CHAINE : 4SFIJT 
LA VALEUR DE LA CHAINE EST : 45 


ASC (chaîne) - CHR#(valeur) 


Vous savez que votre machine travaille uniquement avec des nombres ce 
qui signifie que les caractères sont traduits en nombres. 

Un code existe, code universel connu sous le signe ASCII (american 
standard code for information interchange). 


Les deux opérateurs ci-dessus permettent de passer du code au signe et 

du signe au code. 

ASC ("signe") Cette fonction convertit un caractère ou la première 
lettre d’une chaîne en son numéro de code 


PRINT ASC("A") affiche 65 
PRINT ASC({"BAL") affiche 66 


ATTENTION : l’erreur la plus fréquente avec cette 
fonction est que la chafne soit vide. 


19 XF = "" 
29 PRINT ASC(X#) 
RUN 
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Illlegal function call in 29 


CHRS (nombre) Cette fonction donne une chaîne formée par le 
signe correspondant à la valeur du code ASCII. Le 
nombre prend une valeur comprise entre 9 et 255 
(CHR est l’abréviation du mot "character"). 


Le programme ci-après va vous permettre de visualiser 
sur l’écran le numéro du code et le caractère 


correspondant. 

18 CLS 

29 J=1 

39 FOR 1=32 TO 255 

49 IF J}>4 THEN PRINT « J=1 

59 X = 1 + (J-1)X7 

66 PRINT TAB{X) 15" / ";3CHRS(I); 
7€ J=J+1 

89 NEXT I 

99 END 


Le compteur part de 32. En effet les numéros de code 
de 9 à 32 correspondent aux caractères de contrôle. 
L'action de ceux-ci vous a été présentée au début de 
cet ouvrage. 


HEX# (valeur) -  OCTS(valeur) -  BIN$(valeur) 


Ces trois fonctions convertissent un nombre exprimé en décimal en une 
chafne. 


HEX$ (valeur ) La chaîne exprimera la valeur hexadécimale de 
l'argument. 


19 X=29 

29 PRINT HEX#S(X) 
RUN 

14 


OCTS(valeur) Donne une chaîtne traduisant l’argument en octal. 
19 X=12 (en décimal) 
29 PRINT OCT#(X) 


RUN 
14 


BIN#S(valeur) Donne une chafne traduisant l’argument en binaire. 
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19 X=7 (en décimal) 
29 PRINT BINH(X) 
RUN 
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EXTRACTION ET RECHERCHE 


11 est très important dans les programmes triturant les mots de 
posséder des fonctions permettant d'isoler des parties de chaînes 


alphanumériques. Trois fonctions existent dans le BASIC : 


RIGHT#S(chatfne,valeur) 
Cette fonction permet d'extraire à l’intérieur d’une 
chaîne précisée un certain nombre de caractères, en 
partant du dernier caractère à droite de la chaîne. 


Cette fonction demande deux paramètres : 
RIGHTS (CHF, N) 


à droite chatne hombre de caractères 
principale à extraire 


La traduction française de cette fonction est : 


extraire 
à droite 
de la chaîne CH 
N caractères. 


19 CLS 

29 XF = "BONJOUR" 

39 PRINT RIGHTS(X5,4) 
49 END 


RUN 
JOUR 
LEFT#(chafne,valeur) 


Cette fonction extreit un certain nombre de caractères 
d’une chaîne, en partant du premier caractère à gauche. 


a 


à gauche chaîne nombre de 
principale caractères à extraire 
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Et son action se traduira par : 


extraire 
à gauche 
de la chaîne CH# 
N caractères 


19 AF="BONJOUR" 
29 PRINT LEFT#(A$,3) 
39 END 


RUN 


BON 


MIDH(chafne,valeurl,valeur2) 
Cette fonction permet d’extraire une sous-chaîfne 
se trouvant à l’intérieur d’une chaîne. Elle nécessite 


trois paramètres et sa forme générale est : 


MID (CH, Vi, V2) 


à l’intérieur chaîne ler nn eee de 


principale de la caractères à 
chaîne extraire. 


Son action se traduira par : 


extraire 
dans la chaîtne CH 
une sous-chaîfne commençant en Vi 
dont la longueur est V2. 


19 CLS 

29 AF="BRONJOUR" 

39 PRINT MIDF(AF,2,3) 
49 END 


RUN 
ONJ 
Cette fonction est souvent utilisée pour extraire une 


seule lettre dans une chaîne ; il suffit de donner 
1 comme valeur de V2 dans l'expression générale. 


REMARQUE : MID#(...) est une expression tellement 
générale qu’elle peut remplacer les deux fonctions 
précédentes. 


si  M$="BONJOUR" 


MIDS(MS,1,3) équivaut à LEFTS(MS,3) 
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MIDS(MS,4,4) équivaut à RIGHTF(MS,4) 


De plus, si vous n’indiquez pas le troisième paramètre, 
la chaîne formée débutera au caractère désigné par 

le second paramètre et sera composée de tous les 
caractères lui succédant. 


PRINT MIDF(MH,5) affichera OUR. 


MIDS(...) est aussi une instruction. Celle-ci 
permet de remplacer une chaîne à l’intérieur d’une 
autre chaîne. 


L'expression générale est : 
MiD$(chafne,position de départ, longueur) 


19 CLS 

28 AF="BONJOUR" 

39 BF="SOIR" 

49 MIDF(AF,4,4)=B# 
99 PRINT AF 


RUN 
BONSOIR 


Le principe qu’il vous faut comprendre est que le 
remplacement est limité à la longueur de 1a portion 
de chaîne à échanger, 


19 CLS 

29 AF="BONJOUR" 

39 BF="SOIREE" 

49 MIDF(AF,4,6)=B# 
99 PRINT AS 

69 END 


RUN 
BONSOIR 


La valeur 6 n’a pas été retenue car il n'existait que 
4 espaces de remplacement disponibles. 


INSTR(valeur ,chaîfne,chatne) 
Cette instruction est utilisée pour déterminer la 
position de départ d’une chaîne par rapport à une 


autre. 
le BASIC du Spectravidéo 


LES 
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nous allons rechercher la position de "BASIC" 


19 CLS 

29 M#="LE BASIC DU SPECTRAVIDEO" 
39 MCHF="BASIC" 

49 PO=INSTR(ME,MCH) 

S9 PRINT "POSITION : ";PO 

69 END 


RUN 

POSITION : 4 

Par défaut, la position du début de la recherche est 1. 
Si vous souhaitez commencer la recherche à partir d’une 


position déterminée, il vous suffit de la préciser. 


Voici à titre d'exemple un programme qui permet de 
décomposer une phrase en ses éléments. 


Nous allons procéder à une approche par structurogramme. 


Demander "Une phrase : " =} PH#& 29 INPUT "UNE PHRASE : "5; PH# 

PO <= position d’un espace 39 PO=INSTR(PHF," ") 

Tant que PO <> 9 faire 49 IF PO=G THEN GOTO 89 
Afficher ce qui est avant 59 PRINT LEFT#(PHH,P0O) 
la position PO dans PH$ 
PH£ <= ce qui est derrière 69 PHS=MIDS (PH$,PO+1) 
la position PO dans PH# 

PO <= position d’un espace 74 GOTO 49 
dans PH$ 

Afficher PH$ 86 PRINT PH# 
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LECTURE DE CARACTERES DEPUIS 


LE CLAVIER 


INKEYS 
du clavier. 


A la différence de INPUT, 


l'exécution, 


qu’il reçoive un message du clavier. 
touche n’est pas frappée, 
{son code ASCII EST 9). 

on vérifie cette situation et on oblige 


est lue 
Habituellement, 


Cette fonction sert à lire un caractère provenant 


INKEY# n'arrête pas 
l’ordinateur tourne en rond jusqu’à ce 


Tant qu’une 


c'est la chaîfne vide qui 


l’ordinateur à attendre la frappe d’une touche du 


clavier. 


19 RF=INKEYS : 
29 PRINT R& 
39 GOTO 19 


IF R#="" 


THEN GOTO 19 


La deuxième partie de la ligne 19 vérifie si une touche 


a bien été frappée. 


Retenez cette expression, 


elle 


reviendra fréquemment dans vos programmes. 
Pour sortir de ce programme vous devez taper <CTRL> 


<STOP}. 


Vous pouvez simuler le INPUT grâce au programme 


suivant. 


11 présente l’avantage de pouvoir contrôler 


les caractères frappés sans devoir attendre la 


validation par <ENTER?>. 


Soit une sous-routine destinée à vérifier l'introduction 


d’un nombre : 


Vider l'écran 


CR$& <-- "9123456789" 
C9 <-- 1 


Tant que CA <> 13 Faire 


PQ <-- place de R$ ds CR# 


PO< >9 
OUI NON 


NE=NS+RE 
Afficher R$ 


19 


29 


s1:] 


49 


99 


68 


79 


89 


CLS 
CR#="9123456789" 


Ng= CR 


IF C@=13 THEN GOTO 129 

PO=INSTRICRE, RG) 

IF PO<2>9 THEN 
NE=NGS+RSE: 


PRINT R#& 
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90 RS=INKEYS: IF R#="" THEN 
GOTO 99 
199 CH=ASC (RS) 


Lire le clavier --}> R$ 


C8 <-- code de R# 
Passer à la ligne 
Afficher "Nombre entré : ";N#$ 


REMARQUE : En BASIC Microsoft, chaque fois que vous 
modifiez une chaîne, elle est recréée dans l’espace 
réservé aux chaînes par l'instruction de 

<CLEAR nombre}. 

Lorsque cet espace est plein, BASIC remet de l’ordre en 
éliminant les variables dont vous ne vous êtes plus 
servis et bloque ainsi le système pendant quelques 
instants. Ne soyez pas inquiété par cet arrêt, le 
nettoyage réalisé, tout reprendra normalement. 


119 GOTO 6@ 


129 PRINT 


139 PRINT "NOMBRE ENTRE : "; 
NF 


149 END 


INPUT#(valeur) Cette fonction permet de lire un nombre précisé 
de caractères directement au clavier sans les afficher 
sur l’écran, Il n'est pas nécessaire de taper <ENTER} 
en fin d’entrée de l'information, mais le nombre de 
caractères prévu doit être introduit avant que le 
programme ne se poursuive. 


Par exemple 


19 CLS 

28 PRINT "TAPEZ 2 CARACTERES. " 
39 RS=INPUTS(2) 

49 PRINT "VOUS AVEZ TAPE : ";5Rg 
59 END 


Une utilisation fréquente de cette fonction est 
l’attente d’une réponse <oui> ou non) avec reprise du 
contrôle par le programme sans que l’utilisateur 

ait à appuyer sur <ENTER}. 


19 PRINT "REPONDEZ PAR <g> OÙ <N>."* 
29 RFS=INPUT#(1) 

39 IF R$="0" THEN ... 

49 IF RF="N" THEN ... 

9 GOTO 29 
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CREATION DE CHAINES 


SPACES(valeur) Permet de générer une chaîne composée d'espaces. 
La valeur doit être comprise entre 9 et 255. 


19 AF="BON" 

29 BF=SPACES(5) 
39 CF="JOUR" 

49 PRINT AS; B5; CH 
99 END 


RUN 


BON JOUR 


STRING#$(valeur ,chaîtne ou code) 
Génère une chaîne composée d’un signe précisé soit 
entre guillemets, soit par un numéro de code répété 
un nombre de fois égal à la valeur écrite. 


19 AS=STINGH(49,"X") 
29 PRINT A 
39 END 


RUN 


KI IINININIINNINIINN HI EE 


La concaténat ion 


Un bien grand mot pour l'opérateur qui permet d’accoler deux chaîfnes 
alphanumériques. Nous avons déjà utilisé cette opération dans les 
programmes d'illustration. 


19 AF="BONJOUR " 
24 BF="MONSIEUR" 
39 CH=AF+EF 

49 PRINT CF 

99 END 


RUN 


BONJOUR MONSIEUR 


Le guide du SPECTRAVIDEO / 118 


CHAPITRE VII 
Graphisme 


LES ECRANS 


Les SPECTRAVIDEO SV-318 et SV-328 permettent d'utiliser trois types 
d'écran: 


- l'écran texte 
- l'écran graphique haute résolution 
- l’écran graphique basse résolution 


L'écran texte (23 ou 24 lignes de 39 ou 49 caractères) a déjà été 
décrit dans le chapitre "Instructions générales”. 


Un écran graphique, comme son nom l'indique, permet la représentation 
de dessins mais les deux modes acceptent aussi le texte. 


Le premier mode accepte 256 points en largeur, sur 192 points en 
hauteur: soit 49.152 points que l’on peut éteindre ou allumer grâce 

à l’une des 16 couleurs. 

Le second mode est composé de 64 points en largeur, sur 48 en hauteur: 
soit 3972 points définissables dans la même palette de couleurs. 


Sélection du mode graphique 


SCREEN m«,t?> Cette instruction sélectionne le mode graphique, 
selon la valaeur de m: 


m=@g: mode texte 
m=1: mode graphique haute résolution 
m=2: 


mode graphique basse résolution 


L’argument t permet de sélectionner la taille des 
lutins (voir SPRITES) : 


t=9: les lutins sont codés sur 8 octets maximum, et 
sont représentés en haute résolution 


t=1: les lutins sont codés sur 8 octets maximum, et 
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sont représentés en basse résolution 


t=2: les lutins sont codés sur 32 octets maximum, et 
sont représentés en haute résolution 


t=3: les lutins sont codés sur 32 octets maximum, et 
sont représentés en basse résolution 


Cette instruction peut se résumer par un tableau: 


DESSIN: 


pas de lutin 


8 octets 
haute résolution 


8 octets 
basse résolution 


32 octets 
haute résolution 


32 octets 
basse résolution 


haute résolution 


SCREEN 


SCREEN 


SCREEN 


SCREEN 


SCREEN 


basse résolution 


SCREEN 2 


SCREEN 2,9 


SCREEN 2,1 


SCREEN 2,2 


SCREEN 


de 


LES 


CLS 


Le passage d’un "SCREEN" à un autre efface l'écran 
et les lutins (SPRITES). 


Lorsque l’exécution d’un programme est terminée, 
l'ordinateur repasse automatiquement en mode texte 
(SCREEN #@). Pour pouvoir observer un dessin, même 
lorsque le programme est terminé, on introduira dans 
ce dernier une instruction du genre: 


199 GOTO 199 


Toutes les instructions qui suivent se réfèrent aux 
modes graphiques. Elles doivent donc étre précédées 


l'instruction SCREENZ ou SCREENI, sinon, le message 
" Illegal function call" serait affiché. 


INSTRUCTIONS DE BASE 


Efface l'écran quel que soit le mode choisi par SCREEN. 
SCREEN. 
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COLOR <d>,<f2>,<b> 
Détermine la couleur du dessin (d), de fond (f) et 
des bords de l’écran (b). 


d, f, b sont des nombres compris entre 9 et 15. Ils 
correspondent aux codes des couleurs repris dans la 
partie "Instructions générales". 


Les trois arguments ne doivent pas obligatoirement 
figurer dans l'instruction: 


COLOR 198 modifie uniquement la couleur du dessin 

COLOR ,19 modifie uniquement la couleur de 
l'arrière-plan 

COLOR ,,19 modifie uniquement la couleur du bord de 
l'écran 

COLOR 19,,5 modifie la couleur du dessin et du bord 

COLOR ,19,5 modifie la couleur du fond et du bord 


PSET (x,y)<,c} Cette instruction permet "d'allumer" un point 
dans la couleur déterminée par l'argument © (c est 
compris entre 9 et 15). S'il est omis, c’est la couleur 
définie pour le dessin qui est utilisée (par COLOR). 


Les arguments x et y déterminent la coordonnée du 
point. En haute résolution (SCREEN 1), l’écran est 
composé de 256 points (numérotés de #9 à 255) 
horizontaux sur 192 (de 9 à 191) verticaux; soit 
49.152 points disponibles. Le point de coordonnée 
(9,9) se situe dans le coin supérieur gauche de 
l'écran; le coin inférieur droit est donc (255,192). 


En basse résolution (SCREEN 2), l’écran est divisé 
en 64 points horizontaux sur 48 verticaux. Mais la 
coordonnée de chacun de ces points se calcule de la 
même manière qu’en haute résolution. Il faut savoir 
qu'un point basse résolution est l’équivalent d’un 
carré haute résolution de 4 sur 4 (256/64=4 et 
192/48=4),. 


En basse résolution, l'argument x sera donc compris 
entre 9 et 255, et y, entre 9 et 192. Si vous désirez 
allumer le deuxième point de la ligne supérieure, vous 
devrez écrire: 


PSET(4,@) ou PSET(5,9) ou PSET(6,9) ou PSET(7,9) ou 
PSET(4,1) ou PSET(4,2) ou... ou PSET(?7,35) 


En effet, chacune de ces coordonnées désigne le même 
point basse résolution. À titre d'exemple, essayez 
le programme: 
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19 SCREEN 2 
29 FOR X = 4 TO 7 
39 FOR Y = 9 TO 3 


49 PSET (X,Y) 
96 NEXT Y 
69 NEXT *X 


198 GOTO 199 


Vous ne verrez qu’un seul de ces "points" dessiné. 
De même, si vous remplacez les lignes 29 et 3@ par: 


29 FOR X = 252 TO 255 
39 FOR Y = 188 TO 191 


Tracer une droite horizontale, passant par le centre 
de l'écran, en haute résolution s'obtient par: 


19 SCREEN 1 

29 FOR X = @ TO 255 
39 PSET (%X, 76) 

49 NEXT X 

198 GOTO 196 


Pour interrompre le déroulement, poussez CTRL STOP. 


En basse résolution, il suffirait de remplacer la 
ligne 19. Mais pour gagner en rapidité, on pourrait 
aussi modifier la ligne 29: 


19 SCREEN 2 
29 FOR X = 9 TO 255 STEP 4 


En fait, il existe une instruction (LINE) qui permet 
de tracer directement un segment de droite en donnant 
les coordonnées de l’origine et de l'extrémité. 


Aucun message d'erreur ne se produit tant que x et y 
sont compris entre -32.768 et +32.,767. Si x est en 
dehors de l'intervalle 99-255 ou y est en dehors de 
l'intervalle @-191, le point n'est pas affiché. 


PRESET (x,y)<,c> 
PRESET est semblable à PSET. La différence réside dans 
le choix de la couleur si l'argument c n'est pas 
précisé. Dans ce cas, PRESET prend la couleur du fond 
pour "allumer" le point; c'est-à-dire qu’il efface le 
point. 


Grâce à cette instruction on peut facilement faire 
"voyager" un point basse résolution sur l'écran: 
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E n français 


programme POINT VOYAGEUR 
variables: XX, Y : numériques 


début 
passer en graphique basse résolution 
répéter 
pour YŸ variant de 9 à 191 par pas de 4 faire 
début 
pour X variant de 9 à 255 par pas de 4 faire 
début 
allumer le point (x,y) 
attendre quelque temps 
éteindre le point (x,y) 
fin 
fin 
sans cesse 
fin. 


E n B as i c 


19 SCREEN 2 
29 FOR Y = @ TO 191 STEP 4 
39 FOR X = 9 TO 255 STEP 4 


ag PSET (X,Y) 
59 FOR I = 1 TO 6 : NEXT I 
69 PRESET (X,Y) 

79  NEXT X 

89 NEXT Y 


99 GOTO 29 


Le point balayera l'écran de gauche à droite et de 
haut en bas. 


POINT (x,y) POINT permet de lire le code de la couleur d’un 
point de coordonnée (x,y). Les arguments x et y sont 
identiques à ceux utilisés dans l’instruction PSET. 


Le nombre obtenu est compris entre 9 et 15 
(correspondant à une des 16 couleurs). I1 peut aussi 
être -1 si (x,y) vise un point situé hors de l'écran 
(x<g ou y<g ou x>255 ou y2?191). 


A = POINT (12,35) affecte à la variable A le code de 
la couleur du point (12,35). 


PRINT POINT (299,298) affiche le code de la couleur 
du point (299,299). Comme il est situé en dehors de 
l'écran, il affichera -1. 
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LINE (xi,y1)-(x2,y2)€,c><,B<F>> 


LINE (xi,y1)-(x2,y2),c trace un segment de droite 
depuis le point de coordonnée (xi,y1) jusqu’au point 
(xX2,Y2). c précise la couleur à utiliser; s’il n’est 
pas spécifié, c'est dans la couleur du dessin que le 
segment est tracé. 


La commande B permet de dessiner un rectangle dont 

la diagonale est le segment de droite (xl,y1), (x2,y2). 
De plus, F permet de colorier ce rectangle dans 1a 
couleur co (ou celle du dessin, si c est omis). 


LINE (19,15)-(199,15@),5 trace un segment du point de 
coordonnée (19,15) au point de coordonnée (199,159) 
en couleur 5 (bleu clair). 


LINE (19,15)-(199,15@),5,B dessine un rectangle dont 
la diagonale est le segment de droite déterminé par 
les points (19,15) et (199,159). Les coordonnées des 
4 sommets seront: (19,15), (199,15), (196,156), 
(19,159). 

Cette instruction est donc équivalente à: 


LINE (19,15)-(199,15),5 
LINE (199,15)-(199,159),5 
LINE (199,159)-(19,159),5 
LINE (19,159)-(19,15),5 


LINE (19,15)-(199,159),5,BF dessine un rectangle 
déterminé par la diagonale (19,5) (199,158) et le 
colorie en couleur 5 (bleu clair). 


Pour dessiner 15 carrés superposés, il suffit 
d’introduire le programme suivant: 


19 COLOR ,6,1 ’couleur du fond et bord 

29 SCREEN 1 

39 FOR C = 15 TO @ STEP -1 

49 LINE (CXx8+5,CX8+5)-(CX12+5,CXx12+5) 
°C, BF 

99 NEXT C 

69 GOTO 64 


Pour interrompre l'exécution, poussez CTRL STOP. 
Pour utiliser la couleur initiale du texte et du fond, 
poussez ensuite SHIFT Fé ou COLOR1S,4,5. 


Les arguments x1i et x2 doivent étre compris entre 
—-32.768 et +32.767 pour qu'aucun message d’erreur ne 
soit affiché. Mais, s'ils sont inférieurs à zéro, 

ils sont considérés comme égaux à zéro. De même, 

s’ils sont supérieurs à 255, ils sont considérés comme 
égaux à 299. 


Le guide du SPECTRAVIDEO / 181 


LINE (199,19) -(599,19) est équivalent à: 
LINE (166,19) -(255,1@). 


Les arguments yl et y2 peuvent évoluer dans le même 
intervalle. Mais s’ils sont supérieurs à 191, ils sont 
considérés comme égaux à 191. 


PAINT (x,:y»)<,C2> 
Cette instruction, très puissante, permet de colorier 
une figure fermée quelconque. 


(X,y) est la coordonnée du point à partir duquel il 
faudra "peindre". Ce coloriage s'effectuera dans la 
couleur de code c, jusqu’à ce que le "pinceau" 
rencontre un trait de couleur €, et cela, dans 
toutes les directions. Il faut donc que les contours 
de la forme à colorier aient la même couleur que 
celle utilisée à l’intérieur de la figure. 


Si c n’est pas mentionné, c'est la couleur du dessin 
(déterminée par COLOR) qui est utilisée. 


Le programme ci-dessous dessine un triangle de la 
couleur du dessin (15: blanc) puis le peint dans la 
même couleur. 


29 SCREEN 1 

39 LINE (19,19) -(159,159) 
49 LINE (159,159) -(199,1@) 
59 LINE (199,19) -(1@,1@) 
69 PAINT (89,39) 

79 GOTO 79 


Le point de coordonnée (89,39) est situé à l’intérieur 
du triangle. 


Si vous remplacez la ligne 6@ par: 
6 PAINT (9,4) 


Vous constaterez que l'ordinateur peint tout l'écran 
sauf le triangle: il commence à ce point (qui se 
trouve à l'extérieur de la figure) et colorie jusqu’à 
ce qu’il trouve un trait de couleur 45; il s’interrompt 
donc aux abords du triangle. 


Remplacez la ligne 6@ par: 
69 PAINT (89,3@),19 


Le résultat est surprenant: il colorie tout l'écran 
en jaune foncé (code 19). En effet, à partir du point 
(89,39), il cherche des traits de couleur jaune foncé 


(19); comme il n’en trouve pas, il colorie toute la 
page. 


188 


CIRCLE (x,y),r,s 


Remplacez les lignes 59 et 69 par: 


59 LINE (199,19) -(19,19),5 
69 PAINT (89,36) 


Dans ce cas, l'ordinateur colorie encore tout l'écran. 
Un des côtés du triangle étant dans une autre couleur 
(5) que celle utilisée par PAINT (15), le pinceau 
considère que la figure n’a que deux côtés, et 
qu’elle est ouverte. Il n’est donc pas possible 

de colorier (par l'instruction PAINT) une figure non 
fermée, ou qui comprend des bords de couleurs 
différentes. 


Le coloriage ne peut se faire que dans la couleur 
utilisée pour dessiner les contours de la figure. 


L’argument x doit étre compris entre 9 et 255; 
sinon le message "Illlegal function call in..." est 
affiché. y peut évoluer entre © et 191; et c, entre 
g et 15. 


En graphique basse résolution (SCREEN 2), un argument 
peut être ajouté: l'instruction type sera: 


PAINT (x,y)<,ci><,c2} 


ci est la couleur de coloriage, et c2 est la couleur 

des limites du dessin. On pourrait interpréter cette 
instruction par: peindre à partir du point (x,y), 

dans la couleur de code ci et jusqu’à ce que l’on trouve 
les bords qui ont été dessinés en couleur de code c2. 


En basse résolution, pour colorier un triangle en noir 
(1), en laissant les bords en cyan (7), on introduira: 


19 SCREEN 2 

29 LINE (19,19) -(15@,159),7 
39 LINE (159,159) -(199,19),7 
49 LINE (199,19)-(19,1@),7 
S9 PAINT (89,39),1,7 

68 GOTO 69 


La ligne 59 signifie peindre à partir du point (89,39) 
en couleur 1 jusqu’à ce que l’on rencontre les bords 

de la figure qui sont en couleur 7. Ces bords ne seront 
pas peints. 


<cr:<d>,<f>,<ra} 

CIRCLE trace un cercle (ou une ellipse) dont le centre 
est (x,y), le rayon r, la couleur c, le début d, la fin 
f et le rapport d’ellipse ra. 
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Le rayon du cercle est donné en nombre de points 
"haute résolution". 


Le code de la couleur (c) doit être compris entre 
8 et 15. Il correspond à l’une des 16 teintes 
disponibles. 


La mesure d’un cercle est comprise entre 9 et 2XPI 
(P1=3.14.,..). Si vous désirez dessiner un cercle 
complet, il faudra donner les valeurs 9 et 2*PI aux 
arguments d et f. Par contre, pour ne représenter qu’un 
demi-cercle, il faudra leur attribuer les valeurs 9 et 
PI (partie supérieure) ou PI et 2X*PI (partie 
inférieure), 


Si l’on désire faire afficher une série de cercles 
de même centre, mais de rayons décroissants, on aura 
un programme du genre: 


19 SCREEN 1 

29 PI = 3.14 

39 ’ R est le rayon de chaque cercle 
49 ?’ successif 

59 FOR R = 169 TO 9 STEP -3 

69 ? Les rayons varieront de 169 à 9 
79 ? par pas de -3 

89 CIRCLE (128,96),R,,9,2%XPI 

99 ’ Le centre des cercles est (128,96) 
199 NEXT R 

119 GOTO 119 


Pour afficher successivement la partie inférieure 
d’un cercle, puis la partie supérieure du cercle 
suivant, le programme se présentera sous la forme: 


19 SCREEN 1 
29 PI = 3.14 
39 FOR R = 169 TO @ STEP -3 


40 * Choix du demi-cercle: 

59 * de 9 à PI ou de PI à 2*%PI 
6@ D = (R MOD 2) * PI 

79 F = ((R MOD 2) + 1) + PI 

89 * dessin du demi-cercle 


99  CIRCLE (128,96),R,,D,F 
199 NEXT R 
119 GOTO 119 


Remplacez ensuite, dans le ligne 39, le "STEP -5" 
par "STEP -1". Vous obtiendrez un joli dessin. 


Pour afficher alternativement les quarts de cercles 
(9 à PI/2, PI/2 à PI, PI à 3XPI/2, SXPI/2 à 2*%P1I), 
remplacez les lignes 539, 69 et 79 par: 
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39 FOR R = 169 TO 9 STEP -1 
69 D = {R MOD 4) %* PI/2 
?9 F = ((R MOD 4) + 1) % P1/2 


Vous verrez apparaître une spirale. 


Le dernier argument de l’instruction type permet de 
représenter des ellipses. ra est en effet un rapport 
d’écrasement du cercle. En principe, si ra vaut 1, 
alors le cercle n’est pas déformé (on constate souvent 
qu’il est nécessaire d'introduire un facteur de 
correction dont la valeur est environ 1.2: tout dépend 
de l'écran utilisé). S’il est inférieur, alors, il sera 
“écrasé” par rapport à la verticale. S'il est supérieur 
à 1, alors il sera écrasé par rapport à l’horizontale. 
L’écrasement variera suivant la valeur de ra. 


Le programme suivant dessine un disque en perspective: 


19 SCREEN 1 

29 PI = 3.14 

39 FOR R = 19 TO 39 STEP -1 

4@ D = (R MOD 2) +* PI 

959 F = ({R MOD 2) + 1) *% FI 
69 CIRCLE (128,96),R,,D,F,2/3 
79 NEXT R 

88 GOTO 89 


Le dessin d’un cylindre devient très aisé: 


19 SCREEN 1 
29 PI = 3.14 


39 ’ Cercle supérieur visible 
49 CIRCLE (128,59),59,,9,2XPI,1/2 
99 * Demi cercle inférieur visible 


68 CIRCLE (128,190),59,,PI,2XPI,1/2 
78 * Demi cercle inférieur invisible 
89 CIRCLE (128,199),59,1,9,PI,1/2 

98 * Hauteurs: 

199 LINE (128-59,39)-(128-560,196@) 
119 LINE (128+59,39)-(1289+569,196@) 
129 GOTO 129 


Le rayon r du cercle doit être compris entre -32.768 
et 32.767. Mais, lorsqu'il est négatif, le résultat 
est surprenant. Lorsque le cercle déborde de l’écran, 
aucun message d'erreur n'est affiché, et la partie 
extérieure n'est pas dessinée. 


Le début (d) et la fin (f) du cercle ne peuvent être 
supérieurs à 2XPI (6.283185397...). Si l’un d'eux est 
négatif, alors il est considéré comme nul, et dans 
certains cas, un rayon peut se tracer. 


Le rapport d'’ellipse (ra) doit, pour obtenir des 


LOCATE x,y 
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résultats convaincants, étre positif. 


Place le curseur aux coordonnées graphiques (x,y). 
Cette instruction précède généralement PRINT. 


LOCATE 15,5 place le curseur au point de coordonnée 
(15,5) 


L’instruction PRINT permet d'afficher un texte ou des 
caractères semi-graphiques en basse ou haute 
résolution. Ce texte est alors superposé au dessin 
existant, ce dernier n'étant pas effacé. De même, 

si vous écrivez un nouveau texte sur un ancien, ce 
dernier n'est pas effacé (contrairement à l'écran 
texte); le nouveau est superposé à l’ancien et cela 
devient illisible. 


Pour effacer un texte, il suffira de le réécrire dans 
la couleur du fond de l'écran. Une autre méthode est de 
dessiner un rectangle colorié dans la couleur du fond, 
qui reprendrait la superficie du texte à effacer. 

Un caractère est dessiné dans une matrice de 6 points 
(largeur) sur 8 (hauteur). Pour effacer une ligne 
comportant 29 caractères, et en admettant que la 
couleur du fond soit 4 et que la ligne commence aux 
coordonnées (15,5), on écrirait: 


LINE (15,5)-(15+28K6,5S+1X%8),4,BF 


Les arguments x et y de LOCATE doivent être compris 
entre 9 et 255. 


SAUVEGARDE D'UNMNE PARTIE DL 
DESSIN EN MEMOIRE 


GET (xi,y1)-(x2,y2),var 


Cette instruction permet de prendre la partie du dessin 
située dans le rectangle déterminé par la diagonale 
(x1,y1)-(x2,y2), et de la placer dans la variable var. 


Elle est utilisée lorsqu'on désire afficher un texte 
puis retrouver le dessin initial. 


La variable var doit être dimensionnée. Le problème 
est de déterminer cette dimension: elle varie en effet 
suivant le type de la variable (alphanumérique, 
entière, simple précision ou double précision), et 
suivant sa "forme". Une variable à une dimension 
nécessitera plus de cases pour contenir un dessin 
donné qu’une variable à deux dimensions, qui en 
nécessitera plus qu’une à trois dimensions,... 
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11 est donc difficile de donner une formule type qui 
donnera le nombre de cases minimum. On peut toutefois 
affirmer que pour une variable double précision à deux 
dimensions, le premier indice peut s’obtenir en 
divisant la longueur du rectangle par 4, et le second, 
en divisant la largeur par 4. 


PUT (x,y),var,opération 
Place sur l'écran la partie du dessin sauvée par GET. 
var est la variable utilisée par GET. opération est 
une opération logique entre l'écran et le dessin 
contenu dans var. 


Les différentes opérations sont: 


PSET: place la partie du dessin telle qu'elle a été 
sauvée 


PRESET: place la partie du dessin dans la couleur du 
bord de l’écran 


AND: superpose deux dessins en tenant compte de la 
couleur de ceux-ci. La couleur résultante est 
obtenue par un ET logique entre les couleurs 
mises en présence. 


Exemple: 
dessin 1: rouge (6) 6 ==} 119 
dessin 2: vert (3) 3 ==} gli 


AND 919 ==} 2 
Le résultat sera donc en vert moyen (2). 


OR: identique à AND, mais c'est un OÙ logique qui est 
effectué. 


XOR: place la partie du dessin sans effacer celui qu'il 
va recouvrir 


VPEEK (adr) Une autre manière de sauver une partie de l’écran 
est le transfert octet par octet des valeurs comprises 
dans la mémoire écran. 


VPEEK (adrs) donne la valeur contenue dans l’octet 
numéro adrs. Cette valeur est toujours comprise entre 
9 et 255. 


La mémoire écran occupant 16K, la valeur de adrs doit 
être comprise entre 9 et 16.384. 
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VPOKE adrs,val VPOKE permet de placer une valeur val à l'adresse 
écran adrs. 


adrs doit étre compris entre 9 et 16.384, tandis que 
val doit étre compris entre 9 et 255 (valeur maximale 
contenue dans un octet). 


A titre d'exemple, voici un programme qui change tous 
les "e" affichés en "x". Il n’est valable que pour 
l'écran texte. 


19 CLS 

29 PRINT'"Ceci est un essai de vpeek et 
de” 

39 PRINT:PRINT:PRINT'"vpoke. S’il est co 
ncluant, tous les ":PRINT:PRINT:PRINT'e 
doivent etre changés en x" 

49 FOR I = 9 TO 959 


99 * @->959 est la zone memoire de 
69 ? l'ecran texte 

79 IF VPEEK(I) = 69 THEN VPOKE 1,88 
89 * 69 est le code de e 

96 * 88 est le code de x 

198 NEXT I 


Une utilisation inconsciente de VPOKE peut amener à 
une modification du système. Tout peut alors revenir 
dans l’ordre par... l'extinction de la machine. 


Le jeu de caractères disponibles sur cette machine se 
trouve dans cette partie de la mémoire. Il est donc 
possible de le modifier. Mais cela est une autre 
histoire qui sera traitée dans un prochain volume. 


MACRO LANGAGE GRAPHIQUE 


Le macro langage graphique (MLG) est un ensemble d'instructions qui, 
utilisées conjointement à DRAW, permettent une manipulation aisée et 
naturelle du dessin. 


Une instruction de MLG est une chaîne de caractères qui sera 
effectuée par l'instruction DRAW. 


Un dessin rédigé en MLG ne nécessite qu’une coordonnée: celle de 
départ donnée par LOCATE. Les autres points seront placés de manière 
relative: à partir d’un tel point, monter de 37 unités, aller à gauche 
sur 13 unités, descendre de 24... Une unité correspond à un point 
d'écran haute résolution. 


Cette manière de dessiner se rapproche du langage et de la géométrie 
tortue de LOGO. 
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DRAW 


“chaîne” 


Cette instruction interprète et exécute la chaîne 

de caractères comme un ensemble d’instructions de MLG. 
DRAW peut être aussi suivie d’une variable 
alphanumérique qui comprendrait cette chaîfne. 


Les différents caractères formant 1a chaîne doivent 
être des instructions de MLG, sinon le message 
"Illegal function call in..." serait affiché. 


Les instructions de MLG peuvent être rédigées en 
majuscules ou en minuscules. 


INSTRUCTIONS DE MLG 


(Up) 
A partir du dernier point mentionné, monter de n 
unités. 


U18 signifie donc monter de 19 unités (points). 


n doit être compris entre 9 et 65.535. Aucun message 
ne se produit si le dessin sort de l'écran. Mais, s’il 
sort, la référence pour le tracé suivant sera le 
dernier point affiché à l’écran. 


(Down) 
Descendre de n unités. 


(Left) 
Se déplacer de n unités vers la gauche. 


(Right) 
Se déplacer de n unités vers la droite. 


Se déplacer en diagonale, vers le haut et à droite, 
de n unités. Il s’agit d’un déplacement de n unités 
vers le haut, et de n unités vers la droite. 


Se déplacer en diagonale, vers le bas et à droite, 
de n unités. 


Se déplacer en diagonale, vers le bas et à gauche, 
de n unités. 


Se déplacer en diagonale, vers le haut et à gauche, 
de n unités. 


(Scale) 

S permet d'introduire un facteur d'échelle; on peut 
ainsi augmenter ou diminuer le trait qui va être 
tracé. 
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Si n=9, alors le trait est de taille normale. 
Si n<4, alors le trait est diminué 

Si n=4, alors le trait est de taille normale. 
Si n>4, alors le trait est augmenté. 


Si n=5 la taille du trait sera augmentée d’un quart 

par rapport à la taille normale (9 ou 4). Si n=6, 

alors la taille sera augmentée de deux quarts par 
rapport à la taille normale... Si on désire doubler la 
taille du trait, il faudra augmenter le trait de quatre 
quarts, il faudra donc attribuer 8 à n. Pour une valeur 
n donnée, la longueur du trait sera multipliée par n/4. 


L’'argument n doit étre entier, positif et inférieur 
ou égal à 255. 


La modification de l'échelle est effective jusqu’à 
l'instruction S suivante. 


Le programme ci-dessous représente une série de traits, 
de longueur 11, mais modifiés par l'instruction S. 
Le facteur d'échelle varie de 9 à 255. 


19 SCREENI 
29 FOR I = @ TO 255 


36 AF = "S'+STRH(I)+"R11" 
49 PSET (5,1X*2) : DRAW A 
99 NEXT I 


199 GOTO 199 


La ligne 539 "construit" la chaîne de caractères qui 
va être interprétée à la ligne 49 par DRAW AS. 


La commande B permet de "lever le pinceau" lors 

du prochain déplacement. Le déplacement sera donc 
effectué mais le trait ne sera pas affiché. Le pinceau 
sera abaissé après le prochain déplacement. 


N, placé devant une instruction de déplacement, 
signifie qu'il faut effectuer le déplacement, puis 
revenir au point où l'on se trouvait avant ce 
déplacement. 


DRAW "NDS" est équivalent à DRAW "DSGBUSS", 
c'est-à-dire descendre de 59 unités en dessinant, puis 
remonter de 59 unités sans dessiner. 


Définit l’angle à donner au dessin. Si n=1, tous 

les traits suivants seront dessinés à 99 degrés par 
rapport à la normale. Si n=2, la rotation sera 
effectuése sur 189 degrés. Si n=3, la rotation sera 
effectuée sur 279 degrés. Et enfin, si n=9, alors le 
dessin est affiché normalement (rotation de 9 degré). 


Une erreur de programmation subsiste dans le moniteur 


130 


des premiers SV-518/SV-35328. En effet, lorsque n est 
impair (n=1l ou n=3), un déplacement vers le haut ou 
vers la gauche provoque une erreur de syntaxe. Les 
instructions U, L, E, G et H deviennent donc 
inutilisables dans ces cas. 


La modification de l'orientation est effective jusqu'à 
l'instruction À suivante. 


Cn Définit la couleur à utiliser pour représenter la 
suite du dessin. 


n est le code d'une des 16 couleurs. Il1 doit donc 
être compris entre 9 et 15. 


Le programme suivant dessine une petite maison. Il 
n'utilise que les instructions de MLG. 


19 SCREENI 

29 PSET (88,56) 

39 DRAW "ASS@" ? Initialisation 

49 DRAW "ES@FS39L69" ? Toit 

99 DRAW "BEIZU1SRS5D11" ? Cheminee 

68 DRAW "BU1L1BLSESHSESHSESHSESHS" ? 
Fumee 

79 DRAW "BDS1BL14D8GR6GUSG" ? Murs 

89 DRAW "BGSDISLISUISRIS " ? Fenetre su 
perieure droite 

98 DRAW "BLSGDISRISUISLI1S" ? Fenetre su 
perieure gauche 

199 DRAW "BDSSUISRISDISL15" ?’ Fenetre ji 
nferieure gauche 

119 DRAW "BRS@LI1SU1SR15D15" ? Fenetre ji 
nferieure droite 

129 DRAW "BL26BD1SU2@L18D29" ? Porte 
139 DRAW "BE1@L3" ’ Clenche 

1999 GOTO 1999 


X var; Cette instruction permet d'insérer une variable 
dans la chaîne de MLG: elle effectue le contenu de 
la variable. 


DRAW "LISXAS:R29" signifie aller à gauche de 19 (L1@), 
effectuer le contenu de la variable A$ (XAS;) et enfin, 
aller à droite de 29 unités 

On peut donc placer dans des variables alphanumériques 


des parties de dessins, ou des formes qui reviendront 
régulièrement. 


LES LUTINS — SPRITES 


Un lutin (en anglais: SPRITE) est une petite forme graphique que l’on 
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peut définir par BASIC. Cette forme peut se placer à un endroit 
quelconque de l’écran. 


On les retrouve en général dans les jeux: ce sont les vaisseaux 
spaciaux, les personnages, les avions, les chars... 


11s peuvent être déplacés sur l’écran sans altérer le dessin déjà 
existant ou les autres lutins. On peut ainsi créer un dessin animé. 


Pour les utiliser, il faut suivre une procédure bien précise: 
—- définir leur taille 
— créer les lutins 
—- les afficher et/ou les animer 
- gérer les collisions 


Taille des lutins 
La taille des lutins varie suivant le mode graphique choisi. 


11s peuvent avoir 8 points en largeur sur 8 points en hauteur ou 16 
points en largeur sur 16 points en hauteur. La première définition ne 
nécessite que 8 octets par lutin, tandis que la seconde nécessite 32 
octets par lutin. Le choix de l’une ou l’autre option se justifiera 
par la taille de l’objet, mais aussi par la place encore disponible en 
mémoire ainsi que par le nombre de lutins à définir: on peut créer 
jusqu’à 64 lutins de 32 octets, ou 256 lutins de 8 octets. 


11s peuvent être affichés en basse ou haute résolution, quel que soit 
le mode choisi pour le dessin. 


Référez-vous au tableau en début de ce chapitre concernant 
l'instruction SCREEN. 


Un octet comprend 8 chiffres binaires (9 ou 1). Ces 8 chiffres 
correspondent chacun à un point définissant le lutin. Si l’on désire 
"allumer" un point, on y placera 1, sinon, 9. Un lutin codé sur 8 
octets est structuré de la manière suivante: 


00900006 
2806099080 
20069900 
99999009 
609008 
26099009 
90899008 
20990000 


On dispose donc de 8 lignes comprenant chacune 8 points, soit 64 
points à allumer. 


Un lutin de 32 octets est composé de 4 lutins de 8 octets. On a donc 
la structure suivante: 
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Lorsqu'on définit un lutin de cette taille, 
puis aux 16 octets de droite. 


octets de gauche, 


0960800 
90909060 
90006088 
D60696G0 
00998600 
90998080 
GOGG0000 
9090908089 


0000000 
90098009 
D0006006 
6909090080 
0906008 
20968000 0 
0660000 
0090908090 


D600000€ 
90900000 
0600098080 
6909009 
96000060 
0990900 
69090698 
90900900 


00900060 
90990000 
90660090 
20099000 
90060000 
9090009900 
0609009080 
00099000 


CREATION DES LUITINS 


Créer un lutin, c’est 


forme, 


correspondra à 9. 


Essayons de dessiner une flèche. 
Si on remplace les points allumés par des 1, 


des 9, on obtient: 


SPRITES(n)=chatne 


Pour affecter ce dessin à un lutin, 
l'instruction SPRITES(n)=. 
(9 à 255 pour des lutins de 8 octets, 
lutins de 32 octets). 


points qu’il devra 
correspondra au chiffre binaire 1, 


on accède d’abord aux 16 


indiquer à l'ordinateur les points de cette 


00900008 
90991909 
26911169 
98111119 
1111111 
96811109 
96911199 
g1111111 


"allumer" ou 


variable alphanumérique, 
lui affecter des chaînes de caractères. 


“éteindre”. 
tandis qu’un point éteint 


Un point allumé 


et les points éteints par 


on utilisera 


n est le numéro du lutin 


9 à 63 pour des 


SPRITES se comporte comme une 
c'est-à-dire que l’on doit 
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Pratiquement, il faudra écrire: 


SPRITES (6) =CHR#E (RBOGOGGOGO) +CHRE (LBOGOO 
1999) +CHRE (&BO9GO 11199) +CHRF(&BGG11111S) 
+CHRE(&BG1111111) +CHRE (&B9GG9 1 1109) +CHRE 
(&B9G9 11189) +CHRF(&BS1111111) 


Le 9 situé après SRITES( signifie que l’on définit le 
lutin 9. CHR$ convertit un nombre en alphanumérique. 
Le préfixe &B indique que l’on travaille en mode 
binaire. 


L'écriture d’une telle ligne peut parattre 
fastidieuse. On peut la simplifier en assignant 
")+CHRS(RB" à une des touches de fonction: 


KEY1,")+CHRS(&B" 


Puisque SPRITEH(n) se comporte comme une variable, on 
peut affecter son contenu à une autre variable 
alphanumérique, ou le contraire: 


AFS=SPRITES(9) 
SPRITES(9)=AF 
SPRITES(@)=SPRITES(9) +B$ 
PRINT LEN (SPRITES(@)) 


Cette dernière ligne provoque l’affichage du nombre 
de caractères alphanumériques contenus dans SPRITES(@), 
c'est-à-dire le nombre d'octets utilisés. 


Pour définir un lutin de 32 octets, il faut se rappeler 
que l’on définit d’abord les 16 octets de gauche, puis 
les 16 octets de droite. On travaille donc par 
demi-dessin. 11 est possible qu’une ligne de programme 
ne soit pas suffisante pour contenir toute la 
définition, il faudra alors travailler par parties: 


19 SPRITEHS(D)=CHRE(..... 

29 SPRITES(S)=SPRITEHS(O) + CHRB(.... 
359 SPRITES(S)=SPRITESHS(9) + CHRB(.... 
etc 


On pourra aussi utiliser des variables alphanumériques 
intermédiaires qui comprendront les différentes parties 
du dessin pour obtenir ài la fin une ligne du genre: 


199 SPRITES(D)=AS + B$ + CH + D 
L'instruction SCREEN efface les définitions des lutins. 
Ces dernières doivent donc s'effectuer après le choix 


du type d’écran. 


Ne mettez pas plus de 8 chiffres binaires par octets, 
cela provoquerait une interruption du programme et 
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l'affichage du message d'erreur: "Illegal function 
call in...". 


AFFICHAGE DES LUITINMNS 


PUT SPRITE plan,ix,y),<couleur},numéro 
Pour afficher un lutin à l’écran, il faut bien sûr 
mentionner la coordonnée (x,y) du point écran à partir 
duquel sera dessinée la forme (il correspond au point 
supérieur gauche de celle-ci), la couleur qu’il faudra 
utiliser (si elle n'est pas reprise, c’est la couleur 
du dessin qui est employée), le numéro du lutin. 


11 reste encore un argument à donner: c'est le plan 
dans lequel on veut l'afficher. 


L'écran est, en fait, composé de 33 plans superposés. 
Le dernier plan est réservé au dessin et à l’affichage 
de textes: PRINT, PSET, LINE, CIRCLE, PAINT.., sont 
des instructions qui opéreront dans ce dernier plan. 


Les 32 premiers plans sont réservés à l'affichage des 
lutins. On ne peut placer qu’un lutin par plan, c'est 
la raison pour laquelle on ne peut afficher qu'au 
maximum 32 lutins (cela fait déjà beaucoup de monde!!). 


L'usage de ces plans permet de faire "voyager" un lutin 
sans effacer le dessin ou les autres lutins. On 
remarque également que les lutins passent devant le 
dessin "de fond" et que lorsqu'ils se croisent, l’un 
passe derrière l’autre. 


De plus, placer un lutin dans un plan provoque 
l'effacement du lutin qui s’y trouvait précédemment. 


Faisons voyager un lutin sur une ligne horizontale: 


19 SCREEN1,9 

29 SPRITES(1)=CHRS (RB99990908) +CHRSE (&BS 
99091998) +CHRE (KB99G 11198) +CHRF(LBSG1111 
19) +CHRS(&BG1111111)+CHRS (RBOG91 1198) +C 
HRS (&BGG9 11189) +CHRF(&BD1111111) 

39 LINE (8,194)-(255,1@4) 

49 x=9 

59 PUT SPRITES, (X,96),2,1 

69 X=X + 1 

79 GOTO 59 


La ligne 19 choisit le mode haute résolution pour le 
dessin et l’affichagé des lutins, ceux-ci seront codés 
sur 8 octets. La ligne 29 définit le lutin numéro 1. 
C'est en 39 qu'est dessinée la ligne. La suite est une 
boucle faisant varier X de 1 à... et afficher le lutin 
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numéro 1 dans le plan 9, aux coordonnées (X,96), en 
couleur 2. 


A l'exécution, on constatera qu’il n’y a qu’un lutin 
affiché: en effet, comme on place le nouveau lutin 
(nouvelles coordonnées) dans le plan, l'ancien est 
automatiquement effacé (un lutin par plan). 


On peut remarquer que l'ordinateur est très souple pour 
les coordonnées: la coordonnée en X ou en Y peut varier 
de -32768 à + 32767. L'ordinateur travaille en fait 

en modulo 256 (en X) ou 192 (en Y). 


La couleur du lutin ne doit pas obligatoirement être 
précisée: on peut avoir une instruction telle que: 


PUT SPRITEG, (145,36),,15 
Les autres arguments sont obligatoires. 


Le programme ci-dessous dessine un lutin dont le nombre 
de lignes et le format sont choisis par l’utilisateur: 


g CLS 

1 ON KEY GOSUB 299 : KEY ON 

19 INPUT "Nombre de lignes du lutin (@- 
-} 32"35;N 

29 INPUT "Format d’affichage (@-->3)35F 
39 SCREENI,F 

49 AF="" 

590 XH=CHRE(RB1G101019) : YF=CHRHE(LBDIG1 
9191) 

69 FOR I = 1 TON 

79 SWAP X$,YS 

89 AF=AF + XF 

99 NEXT I 

199 SPRITEHS(1)=AF 

119 PUT SPRITES, (128,96),19,1 

129 GOTO 129 

299 RETURN 19 


Les lignes 1 et 296 permettent de demander l'affichage 
d’un autre lutin en poussant sur la touche F1. 19 et 
29 demandent le nombre de lignes (d’octets) que 
comprendra le lutin, et le format d'affichage (basse 
ou haute résolution, 8 ou 32 octets). 39 définit le 
format du lutin. Les lignes comprises entre 49 et 109 
définissent le lutin suivant le nombre de lignes 
demandées. 119 affiche le lutin ainsi défini. Et enfin 
129 “bloque” l’écran en mode graphique. 


Jouez avec ce petit programmes; il vous aidera à 
comprendre l’instruction SCREEN et la taille des 
lutins. 
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GESTION DES COLLISIONS 


Une collision entre deux lutins se produit lorqu'ils se croisent. En 
fait cette collision n’est pas "réelle" puisqu'ils se trouvent dans 
des plans différents. 


Dans des programmes d'animation, il est très utile de pouvoir détecter 
ces collisions. 


ON SPRITE GOSUB no de ligne 

SPRITE ON - STOP - OFF 
La déclaration ON SPRITE GOSUB détermine le 
sous-programme à effectuer lorsque deux lutins se 
rencontreront. La détection des collisions est donc 
prise en charge par l'ordinateur. Le retour du 
sous-programme s'effectue a l'endroit où le programme 
principal a été interrompu. 


SPRITE ON valide cette déclaration. 


SPRITE STOP interrompt cette déclaration mais retient 
malgré tout les collisions. Les 
branchements au sous-programme seront 
effectués à l'instruction SPRITE ON 
suivante. 


SPRITE OFF interrompt la déclaration ON SPRITE GOSUB. 
L'ordinateur ne détecte plus les collisions. 
C'est la première instruction qu’il faudra 
placer dans le sous-programme gérant la 
collision. 


Le programme ci-dessous fait rebondir un motif entre 
deux murs: 


E n français 


programme REBONDIR 
variables : X ,Déplacement : numériques 


début 

lors d'une collision, effectuer la procédure TRAITEMENT 
définir le lutin 1 ((mur)) 

définir le lutin 2 ((objet en mouvement) ) 


afficher le lutin 1 à deux endroits ((2 murs)) 
X <-- 166 
Déplacement <-- 1 
répéter 

X <-- X + Déplacement 

afficher le lutin 2 aux coordonnées (X,96) 
sans cesse 
fin. 
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procédure TRAITEMENT 

interrompre la détection de collisions 

X <-- X + 4 X (-Déplacement) 

afficher le lutin 2 aux coordonnées (X%X,96) 
({supprime la collision)) 

Déplacement <-- -Déplacement 

activez la détection des collisions 

retourner au programme principal 

fin 


En B as i c 


5 ON SPRITE GOSUB 599 : SPRITE ON 

19 SCREEN 1,1 

29 SPRITES(1) =CHRE (RBOGOGG099) +CHRE (LRQ 
8991906) +CHRE (RBOGG 11100) +CHRE(LBDGI111 
16) +CHRBS(&BO1111111)+CHRE(&B99O 11188) +C 
HR (&BGOG 11199) +CHRF(&BG1111111) 

39 FOR I = 1 TO 8 

46 AE = AF + CHR&(&B11111111) 

99 NEXT I 

69 SPRITES(2)=A# 

79 PUT SPRITE16, (29,96),3,2 

89 PUT SPRITE11,(299,96),3,2 

99 D = 1 : X = 189 

169 PUT SPRITE12,(X,96),19,1 

119 X = X + D 

129 GOTO 199 

999 SPRITE OFF 

919 X = X + 4Xx(-D) 

929 PUT SPRITE12,(%X,76),1@,1 

939 D = -D 

949 SPRITE ON 

999 RETURN 119 


L’'instruction SPRITE OFF de la ligne S99 est 
obligatoire. Si elle ne s’y trouvait pas, l'ordinateur 
se brancherait irrémédiablement en 599 puisqu'il y a 
toujours collision. 


Pour bien comprendre le fonctionnement, actionnez le 
mode "TRACE" par TRON: l'ordinateur affichera le numéro 
de toutes les lignes effectuées. Pour supprimer ce 
mode, introduisez TROFF. 
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CHAPITRE IX 
Son 


Le son peut être obtenu de diverses manières sur le Spectravidéo. 
COMMANDE BASIC ORDINAIRE 


BEEP Cette instruction génère un petit clic 
caractéristique. Vous pouvez obtenir le même effet 
par <CTRL G> ou encore par PRINT CHR$(7). 


Une "sonnerie" peut être simulée par une boucle du 
type: 


19 FOR I=1i TO 29 
29 BEEP 
39 NEXT I 


REMARQUE : Si vous remplacez BEEP par PRINT CHR(7) 
le son émis sera le même mais le curseur va balayer 
l'écran, ce qui risque de détruire l'affichage. 


CLICK ON/OFF L’instruction CLICK ON transformera votre clavier 
en celui d’une machine à écrire. À chaque frappe d’une 
touche un bruit de "frappe" se fera entendre à 
condition d'être relié à un téléviseur. Si cela 
devient trop énervant tapez CLICK OFF et ... le calme 
reviendra. 


LE MACRO LANGAGE 


Le SPECTRAVIDEO possède un très puissant synthétiseur musical que vous 
pouvez utiliser à l’aide de commandes BASIC. Ce synthétiseur 
fonctionne indépendamment du processeur principal, ce qui signifie que 
vous pouvez entendre du son tandis que l’écran, l’imprimante ou 
d’autres périphériques fonctionnent pour une autre tâche. 


L’instruction de base est : 
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PLAY 


JOUER suivi par une chaîne alphanumérique, 
chaîne composée des informations liées au 
Macro-langage. 


AB CC DE F 6G 


O0 (octave) 


R (silence) 


L (durée) 


Les notes sont caractérisées par les lettres : 


si 
la 
sol 
fa 
mi 
ré 
do 


OOMATODY 


Les demi-tons sont indiqués par 
# ou + pour les dièses 
= pour les bémols 


Vous entendrez la gamme à l’aide du programme suivant 
19 Aÿ="CDEFGAB" 


29 PLAY AS 
39 END 


Vous avez à votre disposition 8 octaves et le choix 
s'effectue par l'ajout dans la chafne de <o valeur}, 


celle-ci variant de 1 à 8. 


Pour entendre toutes les octaves, faites fonctionner 
le programme suivant. 


19 FOR I=1 TO 8 


29 O$="0" + CHR#(I) 
39 A&="CDEFGAB" 

49 PLAY O$ + AF 

99 NEXT I 

68 END 


Les silences doivent aussi être indiqués. Pour 

cela utilisez la lettre <R?. 

Si vous souhaitez entendre le passage d’une octave à 
partir du programme précédant, modifiez la ligne 39 
en y ajoutant en fin de chaîne <R>. 


39 AF="CDEFGABR" 


REMARQUE : à la mise en route d’un programme générant 
du son, 4 correspond à l’octave. 


A 1a lecture d’une partition vous constaterez que 
toutes les notes n'ont pas la même durée. Le 
Macro-langage permet de définir une durée de référence 
que chaque note prendra par défaut. 
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Le caractère <L> correspond à cette instruction et la 
valeur qui lui sera associée variera de 1 à 64. 

En général <L8> désigne une noire, ce qui entrafnera 
les valeurs suivantes pour les autres durées. 


demi-soupir, croche 


quart de soupir 
double croche 


huitième de soupir, 
triple croche. 


valeur (durée d’une note) 
Dans une partition, les notes n’ont pas toutes la 
même durée. En plaçant une valeur derrière la 
lettre correspondant à une note, vous lui accordez une 
autre durée que celle définie par la commande "L". 


19 AF="LSC2D4EF16G32A64B" 
29 PLAY AS 
39 END 


Passons aux actes en traduisant une petite partition 
d’un chant populaire : la vigne au vin 


8 16 16 8 1632 32 16 16 16 
OS 
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8 16 16 16 16 16 16 16 1616 32 32 


#  # # # # # 
16 16 16 16 lé 1616 32 32 16 16 16 16 8 16 16 


19 CLS 

29 SCREEN 2 

39 PRINT : PRINT 

49 PRINT " LA VIGNE" 
99 PRINT " AU VIN” 


69 L1F="LSAALéA1GBB16B320SCHS32D16D16D16CH16" 

79 L2F5="0O4B8A1LGALÉFHIGALÉSELéALÉD16D16D16D32E 32" 

89 L3H="FHLéFHIGALSFHIGELGEL6D16D32E32FH16FH16AlÉFRI16ES 
D16R16" 


98 PLAY Li 

199 PLAY L2% 

119 PLAY LS3$ 

126 GOTO 129 

Tapez <RUN). Cela n’a pas beaucoup de sens, les notes 
ne sont pas détachées. Deux instructions vont nous 
permettre d'améliorer cet effet. 


La qualité du son est déterminée par : 


{S valeur > S pour SHAPE ce qui signifie enveloppe, la valeur 
est un nombre compris entre 1 et 14. 


{M valeur } qui commande la période et dont la valeur peut 
varier de 1 à 65535 
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Pour étudier l'effet de ces deux commandes, insérez 
les lignes : 


993 LYF="S11" 
85 PLAY LOS 


Après le <RUN> habituel, ne trouvez-vous pas que cela 
a plus d’allure ? Vous pouvez modifier les valeurs 
associées à S. 


Essayez 1, 4, 8, 19, 11. 


T (tempo) Le tempo peut également être défini. La valeur 
qui lui est associée varie de 32 , lent à 565, rapide. 


€ 
Exemple : {T 168» 
Modifiez la ligne S5 en ajoutant cette information : 


99 LO$S="S11T199" 


V (volume) Le VOLUME peut être ajusté, le nombre associé 
variant de 1, le plus faible, à 15, le plus fort. 


Il ne nous reste plus qu’à exploiter la possibilité 
des trois voix sonores, chacune pouvant étre 
programmée indépendamment des deux autres. 

Pour obtenir le jeu simultané, il suffit de séparer 
la chaîfne correspondant à chaque voix par une 
virgule. 

PLAY M15, M2$, M3$ 


Exemple: 


Essayons sur une mélodie traditionnelle : 


Le vieux chalet. 


A1F D D C B C B À D D C B A G 
616 12 32 12 32 4 

05 04 OS 04 OS 04 
B1% D B A G A CF D B A 6G F G 
616 12 32 # 12 32 4 
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D G GG 


Cc1$ 


32 16 16 


12 
03 04 


6 14 12 32 


A2 


16 


16 16 


16 é 16 16 16 6 
0S 04 


16 16 


6 


0S 


04 


OS 


B2% 


16 


16 16 


# 
16 16 16 6 


6 


# 
16 


lé 16 


D 
6 16 16 16 


Cc2$ 


6 16 16 16 


6 16 1616 


04 


12 32 


04 


03 


04 


04 05 


B3$ B 


32 


12 


16 


16 16 


04 


os 
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En BASIC : 


Vous constaterez que le volume de la partie accompagnement est 
inférieur à celui des deux autres voix. 

Si les trois voix avaient la même intensité, la mélodie serait peu 
audible. 


19 CLS 

29 SCREEN 2 

38 PRINT : PRINT 

49 PRINT " LE VIEUX " 

59 PRINT " CHALET " 

69 L9#="S11MS9OT19904" 

79 A1$="VS5LSDOSD6C1604B1205C3204BAD95D12C3284BAG4" 

89 B1$="V4LS8DB6A16G12A32CFHDB12A32GFG4" 

99 C1$="V4LSDG6G16GG12C32DDD83B1204C32DD16C1603B4" 
199 A2$="R4GA6GB16G16A16B60SC1604A16B1605C6D1604B1605C16" 
119 B2F="RAIGFHÉGIGELGFHLGGÉALÉFHL16G16A6BL6GL6A16" 

129 C2$="R4BO4D6D16D16D16D6D16D16D16D6éD16D16D16" 

139 A3$="D404G05E6D16C1604B16A12B32AA05D12C3204BAG4" 
149 B3$="B4G0SC604B16A16G16GGFHB12A32GFHG4" 

159 C3$="G4GC6é036G#16A16B1604CCC03B1204C32DD12C1203B4" 
169 PLAY L95,L9$,LOS 

179 PLAY A1$,B1#,C1$ 

189 PLAY A25,B2%,C2$ 

199 PLAY A3$,B35,C3% 

299 END 


N (note) Vous pouvez également désigner les notes par un 
nombre accompagnant la lettre <N?>. Cette valeur peut 
varier de 9 à 84. 


Voici un programme qui vous permettra de simuler une 
sirène. 


19 FOR I1=9 TO 8 
29 PLAY "N" + STRS(I) 
39 NEXT I 
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UTILISATION DU) GENERATEUR 
PROGRAMIMABLE DE SONS CP-S- GG.) 


Vous pouvez générer du son directement en vous adressant au générateur 
programmable. L’instruction générale est : 
SOUND no registre , valeur 
- 14 registres sont à votre disposition 
- la valeur admissible varie selon le registre, chacun ayant 


un rôle particulier. 


m les registres relatifs aux SONS 


CS PR ee 
g à 
2222 ET Fe 


ÉÉE 


Chacun des deux registres contient une valeur. Si vous désirez 
entendre un son d’une fréquence donnée, il vous suffit de suivre 
l'algorithme suivant. 


valeur = 3579545 / (16 X fréquence) 
registre bas = valeur et 255 
registre haut= valeur / 256 


29 INPUT "Quelle frequence ";5F 

39 H = F / 256 

49 L = F AND 255 

959 SOUND 6,L (registre bas) 
69 SOUND 1,H (registre haut) 


Tel quel, rien ne sort de la machine, car deux autres registres 
doivent être utilisés. 
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& le registre <?7}> s'occupe du MIXAGE, il contrôle le bruit et le son 


non utilisés canaux 
BRUIT 


sur chaque canal. 


11 suffit d’indiquer 1 dans le bit que vous souhaitez ne pas voir 
activé, et 9 dans le cas contraire. 


En ce qui concerne notre exemple, seul le canal À doit générer du son. 
Le registre 7 contiendra le nombre binaire 11111119 ce qui correspond 
à 294 en décimal. 

La ligne 79 du programme sera : 


74 SOUND 7,&B11111119 


(le &B entrafnera une compréhension de l'expression binaire par la 
machine). 


Si vous aviez souhaité mélanger le bruit et le son sur le canal A, 
vous auriez écrit : 


78 SOUND 7,&B1111@116@ 


H l'AMPLITUDE du son est précisée à l’aide des registres : 


<8} canal À 
<9?> canal B 
<19> canal C 


Sa forme générale est : 


La, Li, L2, LS5 permettent une variation du volume de 9 à 15. 


M - valeur 16 - est directement relié à la période de l’enveloppe et 
va mettre en attente les registres 11, 12 et 13. 


Dans le cas de notre exemple, les lignes suivantes seront ajoutées : 


89 SOUND 8,15 
98 END 
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Tapez <RUN} et ... vous entendrez le résultat. 


ATTENTION : ce n’est qu’à partir de 55 Hertz que le son émis sera 
correct. En effet, pour des valeurs inférieures, H est supérieur à 16, 
ce qui n’est pas possible. 


Vous disposez maintenant d’informations suffisantes pour créer des 
bruits que vous pouvez utiliser dans vos jeux. 


Voici un bruit de "phaser”". 
19 SOUND 7,254 


289 SOUND 8,15 
39 FOR I1=9 TO 2 


ag FOR J=9 TO 255 
59 SOUND @,J 
68 SOUND 1,1 
79 NEXT J 

89 NEXT I 

98 END 


M le registre <é6> génère du BRUIT. 
Sa représentation générale est : 


et la valeur contenue dans ce registre varie de 9 à 21. 


Pour vous rendre compte de ce que cela représente, tapez et faites 
fonctionner le programme suivant. 


19 SOUND 8,15 


28 SOUND 7,&B11119@111 (bruit sur canal A) 
39 FOR 1=9 TO 21 

48 SOUND 6,1 

59 FOR T=1 TO 599 : NEXT T 

69 NEXT I 

79 END 


5 Contrôle de l’ENVELOPPE et de la PERIODE. 
Plusieurs registres vont nous aider dans notre tâche. 
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Partons du programme suivant. 


19 SOUND 6,199 
1 


29 SOUND 1,9 son sur canal À 
39 SOUND 7,254 mixage sur le canal À 
49 SOUND 8,16 mise en éveil des registres 


relatifs à l'enveloppe 


59 SOUND 13,14 sélectionne l’onde de sortie 
69 S=.5 fréq. de 9.5 hertz 

79 HRLO=357945 base de temps 

89 L=HRLO/(256%*S) AND 255 

99 H=HRLO/ (256%5S) /256 définit la période de 

199 SOUND 11,L l'enveloppe. 


119 SOUND 12,H 
129 END 


Ce programme va servir de base aux diverses manipulations que 
nous allons pratiquer. Plutôt que de discourir nous allons faire 
confiance à notre oreille et constater. 


Dans un premier temps, modifiez la valeur de S. Une petit changement 
dans le programme va vous faciliter la tâche. Transformez les lignes 
69 et 129 


69 INPUT "Valeur de ss :"3:;5s 
129 GOTO 69 


Exécutez ce programme en faisant varier S de .5 à 29699. 
Si vous désirez voir quelles valeurs L et H sont attribuées aux 
registres 11 et 12, insérez la ligne : 


75 PRINT "H="5H,"L="iL 


Vous avez assez joué ! Changeons de registre, et effectuez les 
correctifs suivants au programme. 


Effacez la ligne 75. 
69 S=1 

45 INPUT "VALEUR : "35 V 
99 SOUND 13,V 

129 GOTO 45 


Cette fois c’est la forme de l’onde que vous modifiez. Les valeurs 
possibles varient de 9 à 14 et chaque valeur correspond à un type 
d’onde particulier. 
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9, 1; 2; 3; 


pour 1 cycle 


TABLEAU RECAPITULATIF 


eee 


son 
canal 


son 
canal 


bruit 
IN/OUT BRUI 
mumpelefelelr 


Ce ne [eee 
Cr miens [oeufs 
RE Mae ESA CIE 
8 bits (val. basse) 
si 8 bits (val. no 


A SET 


période de 
l'enveloppe 
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CHAPITRE X 
Tableaux de données 


LES TABLEAUX 


DIM Un tableau est un ensemble de variables regroupées 
sous le même nom. Pour "atteindre" une de ces 
variables, il faudra mentionner son nom et son numéro 
(indice). Ce dernier peut être le contenu d’une 
variable numérique ou le résultat d’une expression du 
même type. 


Pour stocker 189 nombres, on pourrait imaginer 
d'utiliser 1968 variables de noms différents: cela 
serait fastidieux! L’alternative est l’utilisation 
d’un tableau: une variable dimensionnée pour laquelle 
on déclare qu’elle contient 199 cases numériques 
attribuées à un seul nom (par exemple X). Cette 
déclaration est effectuée au moyen de: 


DIM X(1@9) 


On obtient ainsi une variable à une dimension (vecteur) 
de 199 cases. Pour mentionner la première case, on 
écrira X(1): X est le nom du tableau et 1 la première 
case. X(39) mentionnera la 39%me case du 

tableau X. 


11 est évident que l'indice ne peut être supérieur 

à la dimension déclarée (199 dans ce cas-ci) et 
inférieur à 9. En réalité, la case 9 est la première 
du tableau et DIMX(199) en réserve 191 (9 --2> 198). 


Dimensionner une variable avec deux dimensions (par 
exemple DIMZ(19,5)) simule un tableau de 19 lignes sur 
5 colonnes. 
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Z 1 2 3 4 ss] 

DR CN à à 
Be Le E à à à 
SE OH OH OH 4 1 
4 1 OH32 1 OH 1 1 
SR de Ce À à 
DU Re re LA 
D is pur (à 
BHO OH 1 1 1 
Ses r nd 6 à 
Br dE Hd à à 


Pour atteindre le nombre 32, il faudra mentionner 
Z(4,2)5 45 correspond à Z(7,4) et -5 à Z(9,1). 


La première valeur des indices est en fait 9: ce 
tableau comprend donc 11 lignes sur 6 colonnes. 


On peut continuer à augmenter la dimension (2, 3,... 
indices), mais la place réservée en mémoire augmente 
vite: un tableau de 19 sur S correspond à 11%Xé6 
variables, un tableau de 19 sur S sur 6 est 
l'équivalent de 11X6X7 variables. La limitation sera 
liée à la taille de la mémoire vive. 


Exemple : 


Entrer 19 prix, calculer et afficher un pourcentage 
(15%) sur ce prix et enfin, afficher le prix augmenté 
de ce pourcentage. On désire retenir les résultats 
obtenus. On utilisera une variable à deux dimensions 
de 19 (19 prix) sur 3 (3 renseignements par prix: prix 
de base, pourcentage et total). 
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19 CLS 

29 DIM P(19,3) 

39 ‘introduction des prix 

49 FOR I = 1 TO 19 

59 INPUT "Prix ";P(I,1) 

69 NEXT I 

79 ’calculs des 15% 

89 FOR I = 1 TO 19 

96 P(I1,2) = P{I,1) + 15 / 199 
199 NEXT I 

119 ’prix globaux 

129 FOR I = 1 TO 19 

139 P(1,3) = P{I,1) + P{I1,2) 
149 NEXT I 

159 ‘affichage 

169 PRINT "PRIX","15%","TOTAL" 


179 PRINT “----" "en d 
189 FOR I = 1 TO 19 

199 PRINT P(I,1),P(1,2),P(I,3) 
299 NEXT I 

219 END 


Ce programme se simplifie aisément car les 3 boucles 
de traitement peuvent n’en former qu’une seule: 


19 CLS 

29 DIM P(19,3) 

39 ’introduction des prix 

49 FOR I = 1 TO 19 

99 INPUT "Prix ";P(I,1) 
69 NEXT I 

79 ‘calculs et affichage 

89 PRINT "PRIX","15%","TOTAL" 


99 PRINT "----" Mn nm “ 
199 FOR 1 = 1 TO 19 

119 P(1,2) = P{I,1) + 15 / 199 
129 P(1,3) = P(I,1) + P(I,2) 
139 PRINT P(I,1),P(I,2),P(I,3) 
149 NEXT I 

159 END 


Une variable dimensionnée peut être de type entière, 
simple précision, double précision ou alphanumérique. 
Cette déclaration est donnée dans le nom (grâce aux 
suffixes adéquats: %, !, # ou $%) ou par DEF. 


Une telle variable ne peut être dimensionnée qu’une 
seule fois dans le programme, sauf si CLEAR ou ERASE 
a été rencontré. Les instructions NEW et RUN effacent 
ces définitions. 


La dimension d’un vecteur n’est pas obligatoire si 
l'indice est inférieur ou égal à 19. 


On peut associer plusieurs déclarations à DIM: 
DIM A(12),X#(12),B!(9) 
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EFFACER 


ERASE var 


est l'équivalent de: 


DIM A(12): DIM X#(12): DIM B'(9) 


UN TABLEAU 


Un tableau peut prendre beaucoup de place en 

mémoire même si vous n’en avez plus besoin. 
L’instruction ERASE efface le tableau dont le nom est 
mentionné. 

ERASE A efface le tableau AS. 


Cette instruction n’agit effectivement que si la 
variable a été dimensionnée par DIM. 


Les données relatives à cette variable sont bien sûr 
effacées, mais l’espace mémoire est libéré. 


Plusieurs noms de variables peuvent être associés 
à cette instruction: 


ERASE A, X$, B! 


efface les tableaux À, X$ et B'. 


CONSERVER DES DONNEES DANS 
UN PROGRAMME 


DATA 
READ 
RESTORE 


L'utilisation d'un tableau nécessite souvent la 
manipulation d’un grand nombre d'informations. 
Ces informations peuvent être sauvées sur 
cassette ou sur disquette sous forme de fichier. 


Les données de base peuvent être insérées dans le 
programme par une instruction spécifique: DATA. 
L'introduction de ces valeurs dans les variables se 
fera au moyen de READ. 


Lorsque DATA est rencontré, l'ordinateur considère la 
suite de la ligne comme des données, 


Le guide du SPECTRAVIDEO / 188 


Exemple : 
Afficher le mois correspondant au numéro introduit: 


5 CLS 

19 DATA janvier,fevrier,mars,avril,mai, 
juin,juillet,aout,septembre,octobre,nov 
embre, decembre 

29 ‘lecture des donnees 

39 DIM AH(12) 

48 FOR I = 1 TO 12 

99 READ A#{1I) 

69 NEXT I 

79 ‘lecture du nombre et affichage 

89 ’du mois correspondant 

99 INPUT "Numero du mois "35N 

199 PRINT ASI{(N) 

119 GOTO 99 


Les lignes 49 à 69 "lisent" les données reprises à la 
ligne 19 et les placent dans les variables A$(1), 
AS(2),..., AS(12) et évitent donc de les insérer par 
une succession de INPUT ou d’affectations. 


Dans l’exemple précédent (calculs de prix), si les dix 
montants de base sont: 599, 199, 259, 325, 429, 25, 
157, 324, 912 et 445, on pourra remplacer la partie 
d'introduction (lignes 49 à 698) par: 


49 DATA 596,199,259,325,429,25,157,324, 


912,445 

45 FOR I = 1 TO 19 
59 READ P{I,1) 
69 NEXT I 


L’instruction READ lit donc les données dans la ligne 
contenant DATA, en commençant par la première valeur. 
Si le nombre de données à lire est supérieur au nombre 
de données effectives un message d’erreur est affiché. 


I1 peut y avoir plusieurs lignes DATA dans un programme 
et elles peuvent étre disposées à un endroit 

quelconque de celui-ci. L'ordinateur lira 
successivement (à chaque exécution de READ) les 

données de la première ligne trouvée, puis 5e rendra à 
la suivante, etc... 


BASIC utilise un pointeur qui détermine sa position 
dans ces données. À chaque instruction READ ce pointeur 
est incrémenté,. Un message d’erreur est affiché lorsqu’ 
il se trouve sur la dernière donnée et qu’on lui 
demande une valeur supplémentaire. 


Les lignes DATA peuvent contenir des données numériques 
ou alphanumériques. Chacune d'elles doit être séparée 
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par une virgule. Si une chaîne contient ce caractère, 
elle doit être placée entre guillemets, comme le 
montre cet exemple: 


19 READ À 

29 READ B#& 

39 READ CF 

49 PRINT A: PRINT B#&: PRINT C# 

59 DATA -12353.5, BONJOUR, "A TOUS, A TOUTE 
S" 

69 END 


L’instruction RESTORE replace le pointeur de DATA à 
la première ligne de données. Cela permet 
éventuellement de les relire. 


RESTORE peut être suivi d’un numéro de ligne pour 
replacer le pointeur à une ligne de DATA bien précise. 
11 faut bien sûr qu'elle contienne cette instruction. 
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CHAPITRE XI 
Fonctions et instructions spéciales 


Quelques fonctions et instructions un peu particulières méritent qu’on 
leur consacre un chapitre. Certaines vous sembleront réservées à des 
"spécialistes" mais comme vous avancez à grands pas dans la 
programmation elles vous seront utiles. Toutes ne sont pas 
développées, elles feront l’objet d’un ouvrage plus spécialisée. 


CLEAR espace chafne, adresse mém. sup. 
Cette instruction efface toutes les variables de la 
mémoire centrale et permet aussi de réserver un certain 
nombre d’octets de mémoire aux chaînes de caractères. 


Par exemple : 
CLEAR 1066 


met à votre disposition 1999 octets de mémoire pour 
les variables alphanumériques. À la mise en route du 
système, l'ordinateur prévoit 299 octets de mémoire 
pour les chafnes. 


Cette instruction permet en plus de réserver une zone 
de mémoire en haut de l1a mémoire de votre ordinateur. 
Vous y mettrez des routines en langage machine et 
celles-ci pourront étre effacées par un éventuel 

NEW. 


Par exemple : 
CLEAR 1099, 59069 (SV-328) 


- remet à zéro toutes les variables, 
- réserve 1968 octets pour les chaîfnes, 
— réserve la partie haute de la mémoire après 599066. 


OUT port,valeur 
11 s’agit d’une instruction commandant l'envoi d’une 
valeur à une porte d'entrée ou de sortie dont le numéro 
a été précisé. Les deux arguments, séparés par une 
virgule, peuvent prendre des valeurs de 9 à 255. 


Par exemple : 
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OUT 255,19 
envoie la valeur 19 à la porte 255. 


C’est par un procédé de ce genre que vous pouvez 
commander le cassétophone. De plus amples 
renseignements vous seront donnés dans une suite à 
cet ouvrage. 


PEEK (adresse mém.) 


Cette fonction permet de lire une valeur contenue dans 
une adresse mémoire précisée. La valeur lue sera 
toujours comprise entre 9 et 255. 


Par exemple : 
PRINT PEEK(199) ——-} S2 


Le contenu de la mémoire d’adresse 199 est 52. Voici 
un petit programme qui devrait vous permettre 
d’explorer la mémoire de votre ordinateur. Il vous 
demande l'adresse de départ de vos investigations 
ainsi que la longueur de mémoire que vous désirez 
découvrir. I1 affichera alors l'adresse mémoire (de 
19 en 19) ainsi que le contenu de celle-ci. Petite 
amélioration, lorsqu'il s'agira d’un caractère du 
code ASCII la conversion sera réalisée. 


19 CLS 
29 INPUT "DEB ";AD (début) 
39 INPUT "LG "35;N (LonGueur ) 
49 PRINT 
959 FORI=AD TO AD+N 
69 IF I-19YXINT(I/1@)=9THEN PRINT 
: PRINT I TAB(4)":"; 
79 X=PEEK(1I) 
89 IF X>31 THEN IF X<126 THEN PRINT CHR#(X); 
ELSE PRINT X%;3 
99 NEXTI 
111 END 


Si vous donnez 32769 comme valeur de AD et 49 comme 
longueur, vous obtenez : 


32768 : nd bank 

32779 : 128 159 128 133 
32789 : "deb ";AD 

32799 : HK# 128 133 "19 " 
32899 : ; 


A titre d’information, 


159 est le code pour CLS 
133 est le code de INPUT 
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Vous retrouvez votre programme. Si vous ne considérez 
que les nombres, vous obtenez : 


g [9 7] |19 a] 159 Cal 
[22 128] [29 | 133 4 68 69 89 32 34 59 78 79 9 


A D 


no ligne INPUT " D E B . 


est un pointeur permettant à l'ordinateur de 
retrouver l'adresse du début de la ligne 
suivante. 


POKE adresse,valeur 
C’est une instruction qui permet d'introduire une 
valeur dans un octet dont l'adresse en mémoire 
centrale a été précisée. Cette valeur est comprise 
entre 9 et 255. Voici un petit programme qui vous 
permettra de mettre en correspondance un numéro de 
code et le signe ou l'instruction qui y correspond: 


s : 

19 KEY1 "GOTO 49" + CHRS(13) 
29 AD = 32773 

39 I = 32 

49 POKE AD, I 

59 I=I+1 

68 PRINT I - 13 : LISTS 


En 19 le programme initialise la touche F1, à chaque 
frappe le programme commence en 49 (sans effacer les 
variables). 

En 29 une adresse de départ est posée. Elle correspond 
au ":" de la ligne S. 

En 49 un code est mis en cet emplacement mémoire, code 
initialisé en 39. 

En S9 la valeur du code est incrémentée. 

En 69 le code est affiché ainsi que sa traduction en 
BASIC et ce grâce au LIST 5. La machine s'arrêtera 
mais il vous suffira de taper sur F1 pour relancer le 
programme. 


CALL adresse Cette instruction appelle un programme en langage 
machine dont le point d’accès est à l'adresse précisée. 
Ce programme peut être résident (une sous-routine du 
BASIC) ou un sous-programme que vous avez écrit. Vous 
aurez au préalable protégé la zone mémoire par un CLEAR 
et stocké votre routine à l’aide de POKE a,b. 


DEF USR a = exp 


USR a(b) USR..{..) vous permet d’appeler jusqu’à 19 (de 9 
à 9) routines en langage machine. Son expression 
est : 


X = USR a (argument) 
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L’argument est une chaîne ou une expression 
numérique. Quand le programme rencontre un USR, le 
contrôle est transféré à l’adresse donnée par 
l’instruction d’'initialisation DEF USR a qui précise 
où se trouve le point d'entrée de la routine en 
langage machine. 


La forme générale est : 
DEF USR a = adresse 
avec a compris entre 9 et 9 et correspondant au a 


figurant dans le USR. L'adresse doit étre comprise 
entre 9 et 65535. 


(nom variable) 


Cette fonction donne l’adresse d’un pointeur qui peut 
nous permettre de localiser la variable ainsi que les 
paramètres qui lui sont propres. Si la variable n’a pas 
encore été définie, si elle n’a pas de valeur, une 
erreur du type "Illegal function Call" sera affichée. 


Voici un petit programme qui vous permettra de mieux 
comprendre comment retrouver une variable 
alphanumérique. 


19 X5 = "BONJOUR" 

29 AP = VARPTR(X#) 

39 AD = PEEK(AD+1) + 256XPEEK(AD+2) 
49 L = PEEK(AD) 


59 PRINT PEEK(AD); PEEK(AD+1)3; PEEK(AD+2) 
68 PRINT “ADRESSE POINTEUR : ";AP 

79 PRINT "LONGUEUR = "35L 

89 PRINT "ADRESSE : ";AD 

99 ? LECTURE 

199 FOR I=AD TO AD+L-1 

119 PRINT I TAB(1@) CHR#&(PEEK(I)) 
129 NEXT I 

139 END 

RUN 


? 15 128 

ADRESSE POINTEUR : -32577 
LONGUEUR : 7 

ADRESSE : 32783 


32783 
32784 
32783 
32786 
32787 
32788 
32789 


2CO0uzZzOtm 
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Ce qui correspond en fait à localiser deux ensembles 
d'informations. Le premier concerne le descripteur de 
la variable et le second la variable elle-même. 


Descripteur de X$ 


—---) 32783 
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CHAPITRE XI 


Prévisions et messages d’erreur 


Votre ordinateur, lorsqu'il rencontre une erreur, vous le signale en 
affichant un message sur l'écran et en arrétant le déroulement du 


programme. 


Voici un relevé de toutes les erreurs pouvant être 
détectées ainsi 


que leur signification et leurs causes possibles. 


Le traitement de l'erreur est une technique utilisée pour éviter 
l’arrét du déroulement du programme. Plusieurs instructions, 
variables ou fonctions vous permettent ce type de travail. 


ERR 


ERL 


RESUME 


RESUME NEXT 


ERROR no 


est le nom de la variable qui contient le numéro 
de l’erreur 


est le nom de la variable qui contient le numéro 
de la ligne où l'erreur s’est produite. 


est une instruction qui permet la reprise du 
programme à la ligne ayant provoqué l’erreur, celle-ci 


ayant été corrigée par un programme approprié. 


le programme reprendra à la ligne suivant celle 
qui contient l'erreur. 


vous permet de simuler une erreur pour tester une 
sous-routine de traitement de l'erreur que vous venez 
de mettre au point. 


Par exemple : 


198 ERROR 11 
RUN 


Division by zero error in 199 


lllustrons tout ceci par un programme simple : soit à tester un nombre 
avant d'effectuer une division par celui-ci, ce nombre ne pouvant 
être égal à zéro. 


Initialiser le traitement de 
l'erreur. 


19 ON ERROR GOTO 19969 


Demander "Nombre : 
mettre dans N 


X <= 199/N 
Afficher X 


29 INPUT "NOMBRE :"3N 


39 X = 199/N 


49 PRINT X 


Traitement de 1’ERREUR 18999 ? TRAIT. ERREUR 

Afficher "Code :'";err 19819 PRINT "CODE :"ERR 

Afficher "No ligne :'";erl 19929 PRINT "NO LIGNE :"ERL 
err=1ll et 196039 IF ERR=11 AND ERL=59 
OUI 

Afficher Afficher THEN PRINT"'LE NOMBRE NE 

"LE NOMBRE NE "ERREUR NON PEUT ETRE<@":RESUME 29 

PEUT ETRE <9" RECONNUE " ELSE PRINT "ERREUR NON 


RECONNUE " : RESUME 59 


Retourner à Retourner à 
demander FIN 
NOMBRE 


Vous constaterez q’une initialisation de l’erreur a été nécessaire. En 
effet, il faut prévenir la machine qu’en cas d'erreur un programme 
existe pour la traiter et qu’il doit en tenir compte. C’est ce que 
réalise l'instruction : 


ON ERROR GOTO no ligne 


TABLEAU RECAPITULATIF DES 
MESSAGES D'ERREURS 


Num. code Message 


1 NEXT without FOR (NEXT sans FOR) 
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Un NEXT var, a été rencontré alors qu’aucun FOR pour 
cette variable n’a été défini. 
- des boucles ont été mal imbriquées. 


Syntax error (erreur de syntaxe) 


La ligne contient une erreur de syntaxe. 
- ponctuation incorrecte 

—- parenthèses manquantes 

- instruction n’existant pas 

—- caractères illégaux 

- faute d’orthographe dans un mot clé 


Le BASIC se met immédiatement en mode éditeur et vous 
permet de corriger la ligne où l’erreur s’est 
produite (tapez <L> pour en obtenir l'affichage et 
continuer à être en mode Editeur). 


RETURN without GOSUB (RETURN sans GOSUB) 


Un RETURN a été rencontré alors qu’il n’était pas 
prévu par un GOSUB : 
- vous avez appelé un sous-programme par GOTO et non 
par GOSUB 
- vous êtes entré dans un sous-programme par erreur 
*%* en oubliant le END en fin de programme 
*%* dans le traitement de l'erreur vous avez 
repris le sous-programme sans exécuter un 
GOSUB. 


Out of DATA (absence de données) 


Un READ est exécuté et il n’y a plus de données à 

lire : 

— vous avez oublié des DATA 

- vous avez oublié de faire RESTORE pour relire les 
données au début des DATA 


Illegal function call (Appel illégal d’une 
fonction) 


Un paramètre hors du domaine normal a été donné à une 

fonction numérique ou alphanumérique : 

- argument négatif pour SGR 

- longueur non comprise entre 1 et 255 dans MID#, 
LEFTS#, RIGHTS 

- indice négatif ou surdimensionné dans une variable 
indicée 

- un argument inférieur ou égal à © dans LOG 

- un appel d’une fonction USR pour laquelle l'adresse 
de départ n’est pas correctement précisée 
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19 


11 


Overflow (Dépassement de capacité) 


Le résultat d’une opération est trop important pour 

être représenté en BASIC : 

- dépasse 9.99..E+62 

- est inférieur à 1E-66. Dans le cas où le nombre est 
compris entre 1E-65 et 9.99999E-685, la valeur est 
assimilée à 9 et l'exécution du programme se 
poursuit sans affichage d’un message d’erreur. 


Out of memory (Plus de mémoire !) 


Il n’y a plus de place disponible en mémoire 
centrale : 

— programme trop long 

- trop d'appels successifs de sous-programmes 
—- les variables sont trop nombreuses 

- les tableaux sont envahissants 


Undefined line number (Numéro de ligne non 
défini) 


Vous avez fait appel à un numéro de ligne qui 
n'existe pas par une instruction GOTO, GOSUB, 
ON...GOTO, ON...GOSUB, RUN... 


Subscript out of range (Référence en dehors du 
domaine) 


Vous demandez un élément d’un tableau en dehors de 
celui-ci. Par exemple demander A(15) alors que vous 
avez initialisé avec DIM A(19). Cette erreur se 
rencontre aussi dans le cas où vous indiquez un trop 
grand nombre d'indices dans l’initialisation d’un 
tableau. 


Redimensioned array (Redimensionnement d’un 
tableau) 


Un tableau est à nouveau dimensionné : 

- le programme rencontre à nouveau l’instruction DIM 
pour un tableau déjà initialisé 

- vous dimensionnez un tableau alors que celui-ci l’a 
déjà été implicitement. Par exemple vous utilisez 
A(S)=4 sans initialisation du tableau A, mais BASIC 
l’a fait automatiquement pour 11 valeurs (de 9 
à 19). 

— vous dimensionnez 2 fois le même tableau. 


Division by zero (Division par zéro) 


Une division par zéro est rencontrée dans une 

expression : 

- le diviseur n’a pas été initialisé et il prend 
alors la valeur 9 par défaut. 
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Illegal direct (Illégal en mode direct) 


Une instruction n’agissant qu’en mode programme a été 

utilisée. C'est le cas pour INPUT, GET, DEF FN, DATA, 

- vous avez oublié le numéro de ligne (utilisez le 
mode AUTO quand vous écrivez un programme, vous 
éviterez cette erreur). 


Type mismatch (La soupe !) 


Désaccord entre le numérique et l’alphanumérique, 
une variable numérique est attribuée à une variable 
alphanumérique ou l'inverse. 

ex : À = STR#(B) 


Out of string space (Plus de place pour les 
chafnes) 


L'espace attribué par <CLEAR espace? a été dépassé, 
Vous disposez de l'instruction PRINT FRE(AS) pour 
vérifier l’espace disponible. Attention à 
l’utilisation du CLEAR. 


String too long (Chafne trop longue) 


Vous avez dépassé les 255 caractères prévus : 

- en concaténant plusieurs chaîtnes 

- dans un PRINT A$+B$ vous dépassez les 255 
caractères, écrivez plutôt PRINT AFSBS 


String formula too complex (Expression de 
chaîne trop complexe) 


Une expression de chaîne est trop longue ou trop 
complexe et la machine en perd son BASIC. Le seul 
moyen est de décomposer l'expression en parties plus 
courtes et plus simples. 


Can’t continue (Ne peut continuer) 


Le programme rencontre un blocage dû à la remise 
en route par <CONT» : 

- après la rencontre d’une erreur 

- après une modification du programme 

- s'il n'y a pas de programme 


Undefined user function (Fonction USR non 
définie) 


Une fonction USR est utilisée avant d’avoir été 
définie, initialisée, par DEF FN. 
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19 


29 


21 


22 


23 


24 


Device 1/0 error (Erreur du système 
d’entrée/sortie) 


Se produit lors de l’utilisation du lecteur de 
cassettes, lorsque vous interrompez une lecture ou 
une écriture sur cassette par CTRL-C. 


Verify error (Erreur lors de la vérification) 


Vous venez de sauvegarder un programme et vous 
vérifiez par un <CLOAD?} s'il est correctement 
recopié. Si une différence entre ce qui est en 
mémoire et ce qui est sur la cassette est constatée 
par l'ordinateur le message "Verify error" s'affiche. 


No RESUME (Pas d'instruction RESUME) 


Une routine de traitement de l'erreur a été utilisée 
et elle ne contient pas d'instruction RESUME. 


RESUME without error (RESUME sans erreur) 


Une instruction RESUME a été exécutée alors qu’il n’y 

avait pas d'erreur : 

- absence d’un END qui permet au programme de se 
poursuivre par le sous-programme de traitement de 
l’erreur. 


Unprintable error (Erreur non reconnue) 


Aucun message d'erreur n’a été prévu par le 
constructeur pour répondre à l’action que vous 
proposez. 


Missing opérand (Opérande manquant) 


Une expression contient un opérateur pour lequel vous 
avez omis de préciser l'’opérande. 
par exemple 
PRINT 2+ 
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Glossaire 


Les mots ci-dessous sont les mots réservés. I1s ne peuvent être 
utilisés comme noms de variables. Par exemple, BONJOUR ne peut en 
désigner une car ce mot contient ON. Le tableau suivant reprend tous 
les mots utilisés par le BASIC et indique le(s) numéros) de page où 
ils sont présentés. Pour les instructions relatives à un périphérique 
particulier (autre que le casséttophone SV-993) aucune information n’a 
été donnée dans cet ouvrage et de ce fait, la pagination n’est pas 
indiquée. 


ABS 94 
AND 88 
APPEND 
ASC 105 
ATN 95 
ATTRS 
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LE 7: 
SPECTRAVIDEO 


SV:318/SV:328 


Cet ouvrage d'initiation s'adresse aux utili- 
sateurs des Spectravideo 318 et 328 qui veulent se 
familiariser avec la programmation en basic. Conçu 
pour le débutant, son approche progressive et 
attrayante est agrémentée de nombreux exemples. 


Après l'apprentissage de la programmation, 
les instructions classiques du basic, telles qu'elles 
existent sur le Spectravideo, Sont détaillées progressi- 
vement. On aborde également ses possibilités graphi- 
ques et musicales;le lecteur découvre ainsi comment 
dessiner et animer des «lutins» Sur l'écran ou jouer 
de la musique. 
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